/[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.23 by jmc, Thu Jul 13 03:00:24 2006 UTC revision 1.24 by jmc, Sun Aug 27 23:27:25 2006 UTC
# Line 126  C    with 2 polar faces + 4 equatorials: Line 126  C    with 2 polar faces + 4 equatorials:
126           ENDDO           ENDDO
127          ENDIF          ENDIF
128    
129          _EXCH_XY_R4(fCori,myThid)          CALL EXCH_XY_RS( fCori, myThid )
130          CALL EXCH_Z_XY_RS(fCoriG,myThid)          CALL EXCH_XY_RS( fCoriCos, myThid )
131          _EXCH_XY_R4(fCoriCos,myThid)  c       CALL EXCH_Z_XY_RS( fCoriG, myThid )
132            CALL EXCH_Z_3D_RS( fCoriG, 1, myThid )
133        ENDIF        ENDIF
134    
135  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22