419 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
420 |
write(weighttype(1:80),'(a)') "wsst0" |
write(weighttype(1:80),'(a)') "wsst0" |
421 |
call ctrl_set_pack_xy( |
call ctrl_set_pack_xy( |
422 |
& cunit, ivartype, adfname_sst0, "hFacC", weighttype, |
& cunit, ivartype, adfname_sst, "hFacC", weighttype, |
423 |
& lxxadxx, mythid) |
& lxxadxx, mythid) |
424 |
#endif |
#endif |
425 |
|
|
428 |
write(weighttype(1:80),'(80a)') ' ' |
write(weighttype(1:80),'(80a)') ' ' |
429 |
write(weighttype(1:80),'(a)') "wsss0" |
write(weighttype(1:80),'(a)') "wsss0" |
430 |
call ctrl_set_pack_xy( |
call ctrl_set_pack_xy( |
431 |
& cunit, ivartype, adfname_sss0, "hFacC", weighttype, |
& cunit, ivartype, adfname_sss, "hFacC", weighttype, |
432 |
& lxxadxx, mythid) |
& lxxadxx, mythid) |
433 |
#endif |
#endif |
434 |
|
|