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

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

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

revision 1.15 by adcroft, Mon Dec 2 16:04:22 2002 UTC revision 1.16 by edhill, Mon Nov 3 22:40:22 2003 UTC
# Line 111  c     _EXCH_XY_R4(fCori,myThid) Line 111  c     _EXCH_XY_R4(fCori,myThid)
111  c     CALL EXCH_Z_XY_RS(fCoriG,myThid)  c     CALL EXCH_Z_XY_RS(fCoriG,myThid)
112  c     _EXCH_XY_R4(fCoriCos,myThid)  c     _EXCH_XY_R4(fCoriCos,myThid)
113    
114  #ifndef EXCLUDE_MONITOR  #ifdef ALLOW_MONITOR
115        CALL MON_PRINTSTATS_RS(1,fCori,'fCori',myThid)        CALL MON_PRINTSTATS_RS(1,fCori,'fCori',myThid)
116        CALL MON_PRINTSTATS_RS(1,fCoriG,'fCoriG',myThid)        CALL MON_PRINTSTATS_RS(1,fCoriG,'fCoriG',myThid)
117        CALL MON_PRINTSTATS_RS(1,fCoriCos,'fCoriCos',myThid)        CALL MON_PRINTSTATS_RS(1,fCoriCos,'fCoriCos',myThid)
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22