The Coriolis rotation (Source File: coriolis.F90)


INTERFACE:

    subroutine coriolis(nlev,dt)
DESCRIPTION:

This subroutine carries out the Coriolis rotation by applying a $ 2\times 2$ rotation matrix with the angle $ f\Delta t$ on the horizontal velocity vector $ (U,V)$.


USES:

    USE meanflow, only: u,v,cori
    IMPLICIT NONE
INPUT PARAMETERS:
    integer, intent(in)                 :: nlev
    REALTYPE, intent(in)                :: dt
REVISION HISTORY:
    Original author(s): Hans Burchard & Karsten Bolding
    $Log: coriolis.F90,v $
    Revision 1.6  2005-06-27 13:44:07  kbk
    modified + removed traling blanks
    Revision 1.5  2004/08/18 11:38:03  lars
    corrected typo in docu
    Revision 1.4  2003/03/28 09:20:35  kbk
    added new copyright to files
    Revision 1.3  2003/03/28 08:56:56  kbk
    removed tabs
    Revision 1.2  2003/03/10 08:50:06  gotm
    Improved documentation and cleaned up code
    Revision 1.1.1.1  2001/02/12 15:55:57  gotm
    initial import into CVS



Karsten Bolding 2012-01-24