/[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.12 by cnh, Wed Sep 26 18:09:15 2001 UTC revision 1.13 by heimbach, Fri Feb 15 21:25:09 2002 UTC
# Line 105  C Line 105  C
105  c     _EXCH_XY_R4(fCori,myThid)  c     _EXCH_XY_R4(fCori,myThid)
106  c     CALL EXCH_Z_XY_RS(fCoriG,myThid)  c     CALL EXCH_Z_XY_RS(fCoriG,myThid)
107    
108    #ifndef EXCLUDE_MONITOR
109        CALL MON_PRINTSTATS_RS(1,fCori,'fCori',myThid)        CALL MON_PRINTSTATS_RS(1,fCori,'fCori',myThid)
110        CALL MON_PRINTSTATS_RS(1,fCoriG,'fCoriG',myThid)        CALL MON_PRINTSTATS_RS(1,fCoriG,'fCoriG',myThid)
111    #endif
112    
113        RETURN        RETURN
114        END        END
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22