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 |
|
|