/[MITgcm]/MITgcm/model/src/timestep.F
ViewVC logotype

Diff of /MITgcm/model/src/timestep.F

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

revision 1.32 by jmc, Thu Apr 17 13:41:34 2003 UTC revision 1.33 by edhill, Thu Oct 9 04:19:18 2003 UTC
# Line 155  C-     for CD-scheme, compute gU,Vtmp = Line 155  C-     for CD-scheme, compute gU,Vtmp =
155        ENDIF        ENDIF
156    
157  #ifdef INCLUDE_CD_CODE  #ifdef INCLUDE_CD_CODE
158    #ifdef ALLOW_MOM_FLUXFORM
159        IF (useCDscheme) THEN        IF (useCDscheme) THEN
160  C-     Step forward D-grid velocity using C-grid gU,Vtmp = gU,V^n + forcing  C-     Step forward D-grid velocity using C-grid gU,Vtmp = gU,V^n + forcing
161  C      and return coriolis terms on C-grid (guCor,gvCor)  C      and return coriolis terms on C-grid (guCor,gvCor)
# Line 171  C      and return coriolis terms on C-gr Line 172  C      and return coriolis terms on C-gr
172           ENDDO           ENDDO
173          ENDDO          ENDDO
174        ENDIF        ENDIF
175    #endif /* ALLOW_MOM_FLUXFORM */
176  #endif /* INCLUDE_CD_CODE */  #endif /* INCLUDE_CD_CODE */
177    
178  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22