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

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

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

revision 1.15 by cheisey, Fri Nov 15 19:58:21 2002 UTC revision 1.16 by cheisey, Thu Nov 21 19:11:42 2002 UTC
# Line 89  C--   Initialize SEAICE parameters Line 89  C--   Initialize SEAICE parameters
89  #endif  #endif
90    
91  cswdblk -- add ---  cswdblk -- add ---
92  #ifdef ALLOW_BULKFORMULA  #ifdef ALLOW_BULK_FORCE
93  C -- initialize Bulkf parameters  C -- initialize Bulkf parameters
94        IF (useBulkf) call BULKF_READPARMS( myThid )        IF (useBulkForce) call BULKF_READPARMS( myThid )
95  #endif  #endif
96  cswdblk --- end add ---  cswdblk --- end add ---
97    
98  cswdice -- add ---  cswdice -- add ---
99  #ifdef ALLOW_TSEAICE  #ifdef ALLOW_THERM_SEAICE
100  C -- initialize Sea Ice parameters  C -- initialize Sea Ice parameters
101        IF (useSeaIce) call ICE_READPARMS( myThid )        IF (useThermSeaIce) call ICE_READPARMS( myThid )
102  #endif  #endif
103  cswdice --- end add ---  cswdice --- end add ---
104    
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22