/[MITgcm]/MITgcm/pkg/mom_fluxform/mom_v_coriolis.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_fluxform/mom_v_coriolis.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by adcroft, Mon Nov 26 17:11:45 2001 UTC revision 1.8 by edhill, Thu Oct 9 04:19:20 2003 UTC
# Line 1  Line 1 
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
# 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
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22