/[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.24 by jmc, Sun Aug 27 23:27:25 2006 UTC revision 1.25 by heimbach, Wed Sep 6 02:44:11 2006 UTC
# Line 16  C     !USES: Line 16  C     !USES:
16        IMPLICIT NONE        IMPLICIT NONE
17  #include "SIZE.h"  #include "SIZE.h"
18  #include "EEPARAMS.h"  #include "EEPARAMS.h"
19  #include "EESUPPORT.h"  #ifndef ALLOW_AUTODIFF_TAMC
20    # include "EESUPPORT.h"
21    #endif
22  #include "PARAMS.h"  #include "PARAMS.h"
23  #include "GRID.h"  #include "GRID.h"
24  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
# Line 132  c       CALL EXCH_Z_XY_RS( fCoriG, myThi Line 134  c       CALL EXCH_Z_XY_RS( fCoriG, myThi
134          CALL EXCH_Z_3D_RS( fCoriG, 1, myThid )          CALL EXCH_Z_3D_RS( fCoriG, 1, myThid )
135        ENDIF        ENDIF
136    
137    #ifndef ALLOW_AUTODIFF_TAMC
138  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
139  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
140        IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN        IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN
# Line 179  C     & mon_write_mnc (since it's the on Line 182  C     & mon_write_mnc (since it's the on
182        ENDIF        ENDIF
183  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
184  #endif /* ALLOW_MONITOR */  #endif /* ALLOW_MONITOR */
185    #endif /* ALLOW_AUTODIFF_TAMC */
186    
187        RETURN        RETURN
188        END        END
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22