/[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.14 by adcroft, Tue Nov 5 19:58:21 2002 UTC revision 1.15 by adcroft, Mon Dec 2 16:04:22 2002 UTC
# Line 109  C      o Special custom form Line 109  C      o Special custom form
109  C  C
110  c     _EXCH_XY_R4(fCori,myThid)  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)
113    
114  #ifndef EXCLUDE_MONITOR  #ifndef EXCLUDE_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)
118  #endif  #endif
119    
120        RETURN        RETURN
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22