535 |
& weighttype, nwetcglobal, mythid) |
& weighttype, nwetcglobal, mythid) |
536 |
#endif |
#endif |
537 |
|
|
538 |
#ifdef ALLOW_EDTAUX_CONTROL |
#ifdef ALLOW_EDDYPSI_CONTROL |
539 |
ivartype = 25 |
ivartype = 25 |
540 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
541 |
write(weighttype(1:80),'(a)') "wedtaux" |
write(weighttype(1:80),'(a)') "wedtaux" |
542 |
call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype, |
call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype, |
543 |
& fname_edtaux(ictrlgrad), "maskCtrlW", |
& fname_edtaux(ictrlgrad), "maskCtrlW", |
544 |
& weighttype, wunit, nwetwglobal, mythid) |
& weighttype, wunit, nwetwglobal, mythid) |
|
#endif |
|
545 |
|
|
|
#ifdef ALLOW_EDTAUY_CONTROL |
|
546 |
ivartype = 26 |
ivartype = 26 |
547 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
548 |
write(weighttype(1:80),'(a)') "wedtauy" |
write(weighttype(1:80),'(a)') "wedtauy" |