146 |
call ctrl_set_fname(xx_tr1_file, fname_tr1, mythid) |
call ctrl_set_fname(xx_tr1_file, fname_tr1, mythid) |
147 |
call ctrl_set_fname(xx_sst_file, fname_sst, mythid) |
call ctrl_set_fname(xx_sst_file, fname_sst, mythid) |
148 |
call ctrl_set_fname(xx_sss_file, fname_sss, mythid) |
call ctrl_set_fname(xx_sss_file, fname_sss, mythid) |
149 |
call ctrl_set_fname(xx_hfacc_file, fname_hfacc, mythid) |
call ctrl_set_fname(xx_depth_file, fname_depth, mythid) |
150 |
call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid) |
call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid) |
151 |
call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid) |
call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid) |
152 |
call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid) |
call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid) |
499 |
& weighttype, nwetcglobal, mythid) |
& weighttype, nwetcglobal, mythid) |
500 |
#endif |
#endif |
501 |
|
|
502 |
#ifdef ALLOW_HFACC_CONTROL |
#ifdef ALLOW_DEPTH_CONTROL |
503 |
ivartype = 20 |
ivartype = 20 |
504 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
505 |
write(weighttype(1:80),'(a)') "whfacc" |
write(weighttype(1:80),'(a)') "wdepth" |
|
# ifdef ALLOW_HFACC3D_CONTROL |
|
|
call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype, |
|
|
& fname_hfacc(ictrlgrad), "maskCtrlC", |
|
|
& wunit, nwetcglobal, mythid) |
|
|
# else |
|
506 |
call ctrl_set_unpack_xy( lxxadxx, cunit, ivartype, |
call ctrl_set_unpack_xy( lxxadxx, cunit, ivartype, |
507 |
& fname_hfacc(ictrlgrad), "maskCtrlC", |
& fname_depth(ictrlgrad), "maskCtrlC", |
508 |
& weighttype, weighttype, nwetcglobal, mythid) |
& weighttype, weighttype, nwetcglobal, mythid) |
|
# endif |
|
509 |
#endif |
#endif |
510 |
|
|
511 |
#ifdef ALLOW_EFLUXY0_CONTROL |
#ifdef ALLOW_EFLUXY0_CONTROL |