/[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.15 by heimbach, Fri Nov 15 03:01:21 2002 UTC revision 1.16 by cheisey, Fri Nov 15 19:58:21 2002 UTC
# Line 93  c--   Initialise the cost function. Line 93  c--   Initialise the cost function.
93  # endif  # endif
94  #endif  #endif
95    
96    cswdblk -- begin add ---
97    #ifdef ALLOW_BULKFORMULA
98          IF (useBulkf) call BULKF_INIT( mythid)
99    #endif
100    cswdblk ---end add ---
101    
102    cswdice ---begin add ---
103    #ifdef ALLOW_TSEAICE
104          IF (useSeaIce) call ICE_INIT( mythid)
105    #endif
106    cswdice ---end add ---
107    
108    
109        RETURN        RETURN
110        END        END
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22