Parent Directory | Revision Log | Revision Graph | Patch
revision 1.6 by adcroft, Mon Nov 26 17:11:45 2001 UTC | revision 1.7 by adcroft, Mon Nov 26 17:15:56 2001 UTC | |
---|---|---|
# | Line 43 C vCoriolisTerm :: Coriolis term | Line 43 C vCoriolisTerm :: Coriolis term |
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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |