224 |
& weighttype, wsalt, lxxadxx, mythid) |
& weighttype, wsalt, lxxadxx, mythid) |
225 |
#endif |
#endif |
226 |
|
|
227 |
#if (defined (ALLOW_HFLUX_CONTROL) || \ |
#if (defined (ALLOW_HFLUX_CONTROL) || defined (ALLOW_HFLUX0_CONTROL)) |
|
defined (ALLOW_HFLUX0_CONTROL)) |
|
228 |
ivartype = 3 |
ivartype = 3 |
229 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
230 |
write(weighttype(1:80),'(a)') "whflux" |
write(weighttype(1:80),'(a)') "whflux" |
233 |
& weighttype, lxxadxx, mythid) |
& weighttype, lxxadxx, mythid) |
234 |
#endif |
#endif |
235 |
|
|
236 |
#if (defined (ALLOW_SFLUX_CONTROL) || \ |
#if (defined (ALLOW_SFLUX_CONTROL) || defined (ALLOW_SFLUX0_CONTROL)) |
|
defined (ALLOW_SFLUX0_CONTROL)) |
|
237 |
ivartype = 4 |
ivartype = 4 |
238 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
239 |
write(weighttype(1:80),'(a)') "wsflux" |
write(weighttype(1:80),'(a)') "wsflux" |
242 |
& weighttype, lxxadxx, mythid) |
& weighttype, lxxadxx, mythid) |
243 |
#endif |
#endif |
244 |
|
|
245 |
#if (defined (ALLOW_USTRESS_CONTROL) || \ |
#if (defined (ALLOW_USTRESS_CONTROL) || defined (ALLOW_TAUU0_CONTROL)) |
|
defined (ALLOW_TAUU0_CONTROL)) |
|
246 |
ivartype = 5 |
ivartype = 5 |
247 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
248 |
write(weighttype(1:80),'(a)') "wtauu" |
write(weighttype(1:80),'(a)') "wtauu" |
251 |
& weighttype, lxxadxx, mythid) |
& weighttype, lxxadxx, mythid) |
252 |
#endif |
#endif |
253 |
|
|
254 |
#if (defined (ALLOW_VSTRESS_CONTROL) || \ |
#if (defined (ALLOW_VSTRESS_CONTROL) || defined (ALLOW_TAUV0_CONTROL)) |
|
defined (ALLOW_TAUV0_CONTROL)) |
|
255 |
ivartype = 6 |
ivartype = 6 |
256 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
257 |
write(weighttype(1:80),'(a)') "wtauv" |
write(weighttype(1:80),'(a)') "wtauv" |
359 |
& weighttype, wunit, lxxadxx, mythid) |
& weighttype, wunit, lxxadxx, mythid) |
360 |
#endif |
#endif |
361 |
|
|
362 |
#ifdef ALLOW_SST0_CONTROL |
#if (defined (ALLOW_SST_CONTROL) || defined (ALLOW_SST0_CONTROL)) |
363 |
ivartype = 18 |
ivartype = 18 |
364 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
365 |
write(weighttype(1:80),'(a)') "wsst0" |
write(weighttype(1:80),'(a)') "wsst0" |
368 |
& weighttype, lxxadxx, mythid) |
& weighttype, lxxadxx, mythid) |
369 |
#endif |
#endif |
370 |
|
|
371 |
#ifdef ALLOW_SSS0_CONTROL |
#if (defined (ALLOW_SSS_CONTROL) || defined (ALLOW_SSS0_CONTROL)) |
372 |
ivartype = 19 |
ivartype = 19 |
373 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
374 |
write(weighttype(1:80),'(a)') "wsss0" |
write(weighttype(1:80),'(a)') "wsss0" |