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

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

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

revision 1.51 by jmc, Sat Jul 29 21:00:09 2006 UTC revision 1.52 by edhill, Tue Aug 15 04:24:03 2006 UTC
# Line 77  C       | Line 77  C       |
77  C       |-- CPL_INIT_FIXED  C       |-- CPL_INIT_FIXED
78  C       |  C       |
79  C       |-- DIAGNOSTICS_INIT_FIXED  C       |-- DIAGNOSTICS_INIT_FIXED
80    C       |
81    C       |-- REGRID_INIT_FIXED
82    
83  C     !USES:  C     !USES:
84        IMPLICIT NONE        IMPLICIT NONE
# Line 278  C-    needs to call DIAGNOSTICS_INIT_FIX Line 280  C-    needs to call DIAGNOSTICS_INIT_FIX
280        IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )        IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )
281  #endif  #endif
282    
283    #ifdef ALLOW_REGRID
284          IF ( useREGRID ) CALL REGRID_INIT_FIXED( mythid )
285    #endif
286    
287        RETURN        RETURN
288        END        END
Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52
  ViewVC Help
Powered by ViewVC 1.1.22