209 |
#ifdef ALLOW_THETA0_CONTROL |
#ifdef ALLOW_THETA0_CONTROL |
210 |
ivartype = 1 |
ivartype = 1 |
211 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
212 |
write(weighttype(1:80),'(a)') "wtheta" |
write(weighttype(1:80),'(a)') "wthetaLev" |
213 |
call ctrl_set_pack_xyz( |
call ctrl_set_pack_xyz( |
214 |
& cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC", |
& cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC", |
215 |
& weighttype, wtheta, lxxadxx, mythid) |
& weighttype, wtheta, lxxadxx, mythid) |
218 |
#ifdef ALLOW_SALT0_CONTROL |
#ifdef ALLOW_SALT0_CONTROL |
219 |
ivartype = 2 |
ivartype = 2 |
220 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
221 |
write(weighttype(1:80),'(a)') "wsalt" |
write(weighttype(1:80),'(a)') "wsaltLev" |
222 |
call ctrl_set_pack_xyz( |
call ctrl_set_pack_xyz( |
223 |
& cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC", |
& cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC", |
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" |
338 |
write(weighttype(1:80),'(a)') "wdiffkr" |
write(weighttype(1:80),'(a)') "wdiffkr" |
339 |
call ctrl_set_pack_xyz( |
call ctrl_set_pack_xyz( |
340 |
& cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC", |
& cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC", |
341 |
& weighttype, wunit, lxxadxx, mythid) |
& weighttype, wdiffkr, lxxadxx, mythid) |
342 |
#endif |
#endif |
343 |
|
|
344 |
#ifdef ALLOW_KAPGM_CONTROL |
#ifdef ALLOW_KAPGM_CONTROL |
347 |
write(weighttype(1:80),'(a)') "wkapgm" |
write(weighttype(1:80),'(a)') "wkapgm" |
348 |
call ctrl_set_pack_xyz( |
call ctrl_set_pack_xyz( |
349 |
& cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC", |
& cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC", |
350 |
& weighttype, wunit, lxxadxx, mythid) |
& weighttype, wkapgm, lxxadxx, mythid) |
351 |
#endif |
#endif |
352 |
|
|
353 |
#ifdef ALLOW_TR10_CONTROL |
#ifdef ALLOW_TR10_CONTROL |
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)') "wsst" |
366 |
call ctrl_set_pack_xy( |
call ctrl_set_pack_xy( |
367 |
& cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC", |
& cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC", |
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)') "wsss" |
375 |
call ctrl_set_pack_xy( |
call ctrl_set_pack_xy( |
376 |
& cunit, ivartype, fname_sss(ictrlgrad), "maskCtrlC", |
& cunit, ivartype, fname_sss(ictrlgrad), "maskCtrlC", |
377 |
& weighttype, lxxadxx, mythid) |
& weighttype, lxxadxx, mythid) |
425 |
write(weighttype(1:80),'(a)') "wedtaux" |
write(weighttype(1:80),'(a)') "wedtaux" |
426 |
call ctrl_set_pack_xyz( |
call ctrl_set_pack_xyz( |
427 |
& cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW", |
& cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW", |
428 |
& weighttype, wunit, lxxadxx, mythid) |
& weighttype, wedtaux, lxxadxx, mythid) |
429 |
#endif |
#endif |
430 |
|
|
431 |
#ifdef ALLOW_EDTAUY_CONTROL |
#ifdef ALLOW_EDTAUY_CONTROL |
434 |
write(weighttype(1:80),'(a)') "wedtauy" |
write(weighttype(1:80),'(a)') "wedtauy" |
435 |
call ctrl_set_pack_xyz( |
call ctrl_set_pack_xyz( |
436 |
& cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS", |
& cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS", |
437 |
& weighttype, wunit, lxxadxx, mythid) |
& weighttype, wedtauy, lxxadxx, mythid) |
438 |
#endif |
#endif |
439 |
|
|
440 |
#ifdef ALLOW_UVEL0_CONTROL |
#ifdef ALLOW_UVEL0_CONTROL |