556 |
#ifdef ALLOW_UVEL0_CONTROL |
#ifdef ALLOW_UVEL0_CONTROL |
557 |
ivartype = 27 |
ivartype = 27 |
558 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
559 |
write(weighttype(1:80),'(a)') "wuvel" |
write(weighttype(1:80),'(a)') "wuvvel" |
560 |
call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype, |
call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype, |
561 |
& fname_uvel(ictrlgrad), "maskCtrlW", |
& fname_uvel(ictrlgrad), "maskCtrlW", |
562 |
& weighttype, wunit, nwetwglobal, mythid) |
& weighttype, wuvvel, nwetwglobal, mythid) |
563 |
#endif |
#endif |
564 |
|
|
565 |
#ifdef ALLOW_VVEL0_CONTROL |
#ifdef ALLOW_VVEL0_CONTROL |
566 |
ivartype = 28 |
ivartype = 28 |
567 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
568 |
write(weighttype(1:80),'(a)') "wvvel" |
write(weighttype(1:80),'(a)') "wuvvel" |
569 |
call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype, |
call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype, |
570 |
& fname_vvel(ictrlgrad), "maskCtrlS", |
& fname_vvel(ictrlgrad), "maskCtrlS", |
571 |
& weighttype, wunit, nwetsglobal, mythid) |
& weighttype, wuvvel, nwetsglobal, mythid) |
572 |
#endif |
#endif |
573 |
|
|
574 |
#ifdef ALLOW_ETAN0_CONTROL |
#ifdef ALLOW_ETAN0_CONTROL |