127 |
call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid) |
call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid) |
128 |
call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid) |
call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid) |
129 |
call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid) |
call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid) |
130 |
|
call ctrl_set_fname(xx_edtaux_file, fname_edtaux, mythid) |
131 |
|
call ctrl_set_fname(xx_edtauy_file, fname_edtauy, mythid) |
132 |
|
|
133 |
c |
c |
134 |
c-- Only the master thread will do I/O. |
c-- Only the master thread will do I/O. |
416 |
& weighttype, lxxadxx, mythid) |
& weighttype, lxxadxx, mythid) |
417 |
#endif |
#endif |
418 |
|
|
419 |
|
#ifdef ALLOW_EDTAUX_CONTROL |
420 |
|
ivartype = 25 |
421 |
|
write(weighttype(1:80),'(80a)') ' ' |
422 |
|
write(weighttype(1:80),'(a)') "wedtaux" |
423 |
|
call ctrl_set_pack_xyz( |
424 |
|
& cunit, ivartype, fname_edtaux(ictrlgrad), "maskW", |
425 |
|
& weighttype, wunit, lxxadxx, mythid) |
426 |
|
#endif |
427 |
|
|
428 |
|
#ifdef ALLOW_EDTAUY_CONTROL |
429 |
|
ivartype = 26 |
430 |
|
write(weighttype(1:80),'(80a)') ' ' |
431 |
|
write(weighttype(1:80),'(a)') "wedtauy" |
432 |
|
call ctrl_set_pack_xyz( |
433 |
|
& cunit, ivartype, fname_edtauy(ictrlgrad), "maskS", |
434 |
|
& weighttype, wunit, lxxadxx, mythid) |
435 |
|
#endif |
436 |
|
|
437 |
|
|
438 |
close ( cunit ) |
close ( cunit ) |
439 |
|
|
440 |
_END_MASTER( mythid ) |
_END_MASTER( mythid ) |