113 |
call ctrl_set_fname(xx_atemp_file, fname_atemp, mythid) |
call ctrl_set_fname(xx_atemp_file, fname_atemp, mythid) |
114 |
call ctrl_set_fname(xx_aqh_file, fname_aqh, mythid) |
call ctrl_set_fname(xx_aqh_file, fname_aqh, mythid) |
115 |
call ctrl_set_fname(xx_precip_file, fname_precip, mythid) |
call ctrl_set_fname(xx_precip_file, fname_precip, mythid) |
116 |
|
call ctrl_set_fname(xx_swflux_file, fname_swflux, mythid) |
117 |
call ctrl_set_fname(xx_uwind_file, fname_uwind, mythid) |
call ctrl_set_fname(xx_uwind_file, fname_uwind, mythid) |
118 |
call ctrl_set_fname(xx_vwind_file, fname_vwind, mythid) |
call ctrl_set_fname(xx_vwind_file, fname_vwind, mythid) |
119 |
call ctrl_set_fname(xx_obcsn_file, fname_obcsn, mythid) |
call ctrl_set_fname(xx_obcsn_file, fname_obcsn, mythid) |
353 |
& weighttype, wunit, lxxadxx, mythid) |
& weighttype, wunit, lxxadxx, mythid) |
354 |
#endif |
#endif |
355 |
|
|
356 |
#ifdef ALLOW_PRECIP_CONTROL |
#ifdef ALLOW_TR10_CONTROL |
357 |
ivartype = 17 |
ivartype = 17 |
358 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
359 |
write(weighttype(1:80),'(a)') "wprecip" |
write(weighttype(1:80),'(a)') "wtr1" |
360 |
call ctrl_set_pack_xy( |
call ctrl_set_pack_xyz( |
361 |
& cunit, ivartype, fname_precip(ictrlgrad), "maskCtrlC", |
& cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC", |
362 |
& weighttype, lxxadxx, mythid) |
& weighttype, wunit, lxxadxx, mythid) |
363 |
#endif |
#endif |
364 |
|
|
365 |
#ifdef ALLOW_SST0_CONTROL |
#ifdef ALLOW_SST0_CONTROL |
485 |
& weighttype, lxxadxx, mythid) |
& weighttype, lxxadxx, mythid) |
486 |
#endif |
#endif |
487 |
|
|
488 |
#ifdef ALLOW_TR10_CONTROL |
#ifdef ALLOW_PRECIP_CONTROL |
489 |
ivartype = 32 |
ivartype = 32 |
490 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
491 |
write(weighttype(1:80),'(a)') "wtr1" |
write(weighttype(1:80),'(a)') "wprecip" |
492 |
call ctrl_set_pack_xyz( |
call ctrl_set_pack_xy( |
493 |
& cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC", |
& cunit, ivartype, fname_precip(ictrlgrad), "maskCtrlC", |
494 |
& weighttype, wunit, lxxadxx, mythid) |
& weighttype, lxxadxx, mythid) |
495 |
|
#endif |
496 |
|
|
497 |
|
#ifdef ALLOW_SWFLUX_CONTROL |
498 |
|
ivartype = 33 |
499 |
|
write(weighttype(1:80),'(80a)') ' ' |
500 |
|
write(weighttype(1:80),'(a)') "wswflux" |
501 |
|
call ctrl_set_pack_xy( |
502 |
|
& cunit, ivartype, fname_swflux(ictrlgrad), "maskCtrlC", |
503 |
|
& weighttype, lxxadxx, mythid) |
504 |
#endif |
#endif |
505 |
|
|
506 |
close ( cunit ) |
close ( cunit ) |