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

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

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

revision 1.16 by cheisey, Fri Nov 15 19:58:21 2002 UTC revision 1.17 by cheisey, Thu Nov 21 19:11:42 2002 UTC
# Line 94  c--   Initialise the cost function. Line 94  c--   Initialise the cost function.
94  #endif  #endif
95    
96  cswdblk -- begin add ---  cswdblk -- begin add ---
97  #ifdef ALLOW_BULKFORMULA  #ifdef ALLOW_BULK_FORCE
98        IF (useBulkf) call BULKF_INIT( mythid)        IF (useBulkForce) call BULKF_INIT( mythid)
99  #endif  #endif
100  cswdblk ---end add ---  cswdblk ---end add ---
101    
102  cswdice ---begin add ---  cswdice ---begin add ---
103  #ifdef ALLOW_TSEAICE  #ifdef ALLOW_THERM_SEAICE
104        IF (useSeaIce) call ICE_INIT( mythid)        IF (useThermSeaIce) call ICE_INIT( mythid)
105  #endif  #endif
106  cswdice ---end add ---  cswdice ---end add ---
107    
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22