/[MITgcm]/MITgcm/pkg/shelfice/shelfice_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/shelfice/shelfice_readparms.F

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

revision 1.7 by mlosch, Wed Sep 10 08:55:12 2008 UTC revision 1.8 by jmc, Wed Jul 8 21:58:30 2009 UTC
# Line 45  CEOP Line 45  CEOP
45       &     SHELFICElatentHeat, SHELFICEHeatCapacity_Cp,       &     SHELFICElatentHeat, SHELFICEHeatCapacity_Cp,
46       &     SHELFICEDragLinear, SHELFICEDragQuadratic,       &     SHELFICEDragLinear, SHELFICEDragQuadratic,
47       &     SHELFICEthetaSurface,       &     SHELFICEthetaSurface,
48       &     useISOMIPTD, no_slip_shelfice,       &     useISOMIPTD, no_slip_shelfice,
49       &     SHELFICEconserve, SHELFICEboundaryLayer,       &     SHELFICEconserve, SHELFICEboundaryLayer,
50       &     SHELFICEwriteState,       &     SHELFICEwriteState,
51       &     SHELFICE_dumpFreq,       &     SHELFICE_dumpFreq,
# Line 128  C-    Set Output type flags : Line 128  C-    Set Output type flags :
128  C Everyone else must wait for the parameters to be loaded  C Everyone else must wait for the parameters to be loaded
129        _BARRIER        _BARRIER
130    
 #ifdef ALLOW_MNC  
 C     Initialize MNC variable information for SHELFICE  
       IF ( useMNC .AND. (shelfice_tave_mnc.OR.shelfice_dump_mnc)  
      &    ) THEN  
        CALL SHELFICE_MNC_INIT( myThid )  
       ENDIF  
 #endif /* ALLOW_MNC */  
   
131  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
132    
133        RETURN        RETURN
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22