126 |
call ctrl_set_fname(xx_tr1_file, fname_tr1, mythid) |
call ctrl_set_fname(xx_tr1_file, fname_tr1, mythid) |
127 |
call ctrl_set_fname(xx_sst_file, fname_sst, mythid) |
call ctrl_set_fname(xx_sst_file, fname_sst, mythid) |
128 |
call ctrl_set_fname(xx_sss_file, fname_sss, mythid) |
call ctrl_set_fname(xx_sss_file, fname_sss, mythid) |
129 |
call ctrl_set_fname(xx_hfacc_file, fname_hfacc, mythid) |
call ctrl_set_fname(xx_depth_file, fname_depth, mythid) |
130 |
call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid) |
call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid) |
131 |
call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid) |
call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid) |
132 |
call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid) |
call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid) |
377 |
& weighttype, lxxadxx, mythid) |
& weighttype, lxxadxx, mythid) |
378 |
#endif |
#endif |
379 |
|
|
380 |
#ifdef ALLOW_HFACC_CONTROL |
#ifdef ALLOW_DEPTH_CONTROL |
381 |
ivartype = 20 |
ivartype = 20 |
382 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
383 |
write(weighttype(1:80),'(a)') "whfacc" |
write(weighttype(1:80),'(a)') "wdepth" |
|
# ifdef ALLOW_HFACC3D_CONTROL |
|
|
call ctrl_set_pack_xyz( |
|
|
& cunit, ivartype, fname_hfacc(ictrlgrad), "maskCtrlC", |
|
|
& weighttype, wunit, lxxadxx, mythid) |
|
|
# else |
|
384 |
call ctrl_set_pack_xy( |
call ctrl_set_pack_xy( |
385 |
& cunit, ivartype, fname_hfacc(ictrlgrad), "maskCtrlC", |
& cunit, ivartype, fname_depth(ictrlgrad), "maskCtrlC", |
386 |
& weighttype, lxxadxx, mythid) |
& weighttype, lxxadxx, mythid) |
387 |
# endif |
#endif /* ALLOW_DEPTH_CONTROL */ |
|
#endif |
|
388 |
|
|
389 |
#ifdef ALLOW_EFLUXY0_CONTROL |
#ifdef ALLOW_EFLUXY0_CONTROL |
390 |
ivartype = 21 |
ivartype = 21 |