1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
#include "CPP_OPTIONS.h" |
#include "MOM_FLUXFORM_OPTIONS.h" |
5 |
|
|
6 |
CBOP |
CBOP |
7 |
C !ROUTINE: MOM_V_CORIOLIS |
C !ROUTINE: MOM_V_CORIOLIS |
43 |
C !LOCAL VARIABLES: ==================================================== |
C !LOCAL VARIABLES: ==================================================== |
44 |
C i,j :: loop indices |
C i,j :: loop indices |
45 |
INTEGER I,J |
INTEGER I,J |
46 |
|
_RL one |
47 |
|
PARAMETER(one=1.d0) |
48 |
CEOP |
CEOP |
49 |
|
|
50 |
IF (useEnergyConservingCoriolis) THEN |
IF (useEnergyConservingCoriolis) THEN |