/[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.76 by mlosch, Wed Oct 26 09:30:17 2011 UTC revision 1.78 by dimitri, Fri Mar 2 01:45:22 2012 UTC
# Line 82  C       |-- PTRACERS_INIT_FIXED Line 82  C       |-- PTRACERS_INIT_FIXED
82  C       |  C       |
83  C       |-- GCHEM_INIT_FIXED  C       |-- GCHEM_INIT_FIXED
84  C       |  C       |
85    C       |-- FRAZIL_INIT_FIXED
86    C       |
87  C       |-- THSICE_INIT_FIXED  C       |-- THSICE_INIT_FIXED
88  C       |  C       |
89    C       |-- SEAICE_INIT_FIXED
90    C       |
91  C       |-- SHELFICE_INIT_FIXED  C       |-- SHELFICE_INIT_FIXED
92  C       |  C       |
93  C       |-- ICEFRONT_INIT_FIXED  C       |-- ICEFRONT_INIT_FIXED
# Line 446  C--   Initialise fixed array for Float p Line 450  C--   Initialise fixed array for Float p
450        ENDIF        ENDIF
451  #endif  #endif
452    
453    #ifdef ALLOW_FRAZIL
454          IF (useFRAZIL) THEN
455    # ifdef ALLOW_DEBUG
456            IF (debugMode) CALL DEBUG_CALL('FRAZIL_INIT_FIXED',myThid)
457    # endif
458            CALL FRAZIL_INIT_FIXED(myThid)
459          ENDIF
460    #endif
461    
462  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
463        IF (useThSIce) THEN        IF (useThSIce) THEN
464  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
# Line 482  C--   Initialise fixed array for Float p Line 495  C--   Initialise fixed array for Float p
495        ENDIF        ENDIF
496  #endif /* ALLOW_ICEFRONT */  #endif /* ALLOW_ICEFRONT */
497    
498    #ifdef ALLOW_STREAMICE
499          IF (useStreamIce) THEN
500    # ifdef ALLOW_DEBUG
501            IF (debugMode) CALL DEBUG_CALL('STREAMICE_INIT_FIXED',myThid)
502    # endif
503           CALL STREAMICE_INIT_FIXED( myThid )
504          ENDIF
505    #endif /* ALLOW_STREAMICE */
506    
507  #ifdef ALLOW_EMBED_FILES  #ifdef ALLOW_EMBED_FILES
508        IF ( useEMBED_FILES ) THEN        IF ( useEMBED_FILES ) THEN
509  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
Legend:
Removed from v.1.76  
changed lines
  Added in v.1.78
  ViewVC Help
Powered by ViewVC 1.1.22