138 |
|
|
139 |
C-- COMMON / THSICE_PAR_L / ice model (logical) parameters |
C-- COMMON / THSICE_PAR_L / ice model (logical) parameters |
140 |
C stepFwd_oceMxL :: step forward mixed-layer T & S (slab-ocean) |
C stepFwd_oceMxL :: step forward mixed-layer T & S (slab-ocean) |
141 |
|
C thSIce_calc_albNIR :: calculate Near Infra-Red Albedo |
142 |
C thSIce_tave_mdsio :: write TimeAverage output using MDSIO |
C thSIce_tave_mdsio :: write TimeAverage output using MDSIO |
143 |
C thSIce_snapshot_mdsio :: write snap-shot output using MDSIO |
C thSIce_snapshot_mdsio :: write snap-shot output using MDSIO |
144 |
C thSIce_mon_stdio :: write monitor to std-outp |
C thSIce_mon_stdio :: write monitor to std-outp |
150 |
C thSIce_pickup_write_mdsio :: pickup write w/ MDSIO |
C thSIce_pickup_write_mdsio :: pickup write w/ MDSIO |
151 |
COMMON / THSICE_PAR_L / |
COMMON / THSICE_PAR_L / |
152 |
& stepFwd_oceMxL, |
& stepFwd_oceMxL, |
153 |
|
& thSIce_calc_albNIR, |
154 |
& thSIce_tave_mdsio, thSIce_snapshot_mdsio, thSIce_mon_stdio, |
& thSIce_tave_mdsio, thSIce_snapshot_mdsio, thSIce_mon_stdio, |
155 |
& thSIce_tave_mnc, thSIce_snapshot_mnc, thSIce_mon_mnc, |
& thSIce_tave_mnc, thSIce_snapshot_mnc, thSIce_mon_mnc, |
156 |
& thSIce_pickup_read_mnc, |
& thSIce_pickup_read_mnc, |
158 |
& thSIce_pickup_write_mnc |
& thSIce_pickup_write_mnc |
159 |
|
|
160 |
LOGICAL stepFwd_oceMxL |
LOGICAL stepFwd_oceMxL |
161 |
|
LOGICAL thSIce_calc_albNIR |
162 |
LOGICAL thSIce_tave_mdsio, thSIce_snapshot_mdsio, thSIce_mon_stdio |
LOGICAL thSIce_tave_mdsio, thSIce_snapshot_mdsio, thSIce_mon_stdio |
163 |
LOGICAL thSIce_tave_mnc, thSIce_snapshot_mnc, thSIce_mon_mnc |
LOGICAL thSIce_tave_mnc, thSIce_snapshot_mnc, thSIce_mon_mnc |
164 |
LOGICAL thSIce_pickup_read_mnc |
LOGICAL thSIce_pickup_read_mnc |