/[MITgcm]/MITgcm/pkg/ctrl/ctrl_pack.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_pack.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.49 by heimbach, Sat Jan 26 14:45:56 2013 UTC revision 1.50 by heimbach, Fri Feb 1 19:25:32 2013 UTC
# Line 272  c          write(cunit) nWetiGlobal(1) Line 272  c          write(cunit) nWetiGlobal(1)
272            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
273            write(weighttype(1:80),'(a)') "whflux"            write(weighttype(1:80),'(a)') "whflux"
274            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
275       &         cunit, ivartype, fname_hflux(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, forcingPrecond,
276         &         fname_hflux(ictrlgrad), "maskCtrlC",
277       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
278  #endif  #endif
279    
# Line 281  c          write(cunit) nWetiGlobal(1) Line 282  c          write(cunit) nWetiGlobal(1)
282            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
283            write(weighttype(1:80),'(a)') "wsflux"            write(weighttype(1:80),'(a)') "wsflux"
284            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
285       &         cunit, ivartype, fname_sflux(ictrlgrad), "maskCtrlC",       &         cunit, ivartype,  forcingPrecond,
286         &         fname_sflux(ictrlgrad), "maskCtrlC",
287       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
288  #endif  #endif
289    
# Line 294  c          write(cunit) nWetiGlobal(1) Line 296  c          write(cunit) nWetiGlobal(1)
296            write(weighttype(1:80),'(a)') "wtauu"            write(weighttype(1:80),'(a)') "wtauu"
297            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
298  #ifndef ALLOW_ROTATE_UV_CONTROLS  #ifndef ALLOW_ROTATE_UV_CONTROLS
299       &         cunit, ivartype, fname_tauu(ictrlgrad), "maskCtrlW",       &         cunit, ivartype, forcingPrecond,
300         &         fname_tauu(ictrlgrad), "maskCtrlW",
301  #else  #else
302       &         cunit, ivartype, fname_tauu(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, forcingPrecond,
303         &         fname_tauu(ictrlgrad), "maskCtrlC",
304  #endif  #endif
305       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
306  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
# Line 313  c          write(cunit) nWetiGlobal(1) Line 317  c          write(cunit) nWetiGlobal(1)
317            write(weighttype(1:80),'(a)') "wtauv"            write(weighttype(1:80),'(a)') "wtauv"
318            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
319  #ifndef ALLOW_ROTATE_UV_CONTROLS  #ifndef ALLOW_ROTATE_UV_CONTROLS
320       &         cunit, ivartype, fname_tauv(ictrlgrad), "maskCtrlS",       &         cunit, ivartype, forcingPrecond,
321         &         fname_tauv(ictrlgrad), "maskCtrlS",
322  #else  #else
323       &         cunit, ivartype, fname_tauv(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, forcingPrecond,
324         &         fname_tauv(ictrlgrad), "maskCtrlC",
325  #endif  #endif
326       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
327  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
# Line 328  c          write(cunit) nWetiGlobal(1) Line 334  c          write(cunit) nWetiGlobal(1)
334            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
335            write(weighttype(1:80),'(a)') "watemp"            write(weighttype(1:80),'(a)') "watemp"
336            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
337       &         cunit, ivartype, fname_atemp(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, forcingPrecond,
338         &         fname_atemp(ictrlgrad), "maskCtrlC",
339       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
340  #endif  #endif
341    
# Line 337  c          write(cunit) nWetiGlobal(1) Line 344  c          write(cunit) nWetiGlobal(1)
344            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
345            write(weighttype(1:80),'(a)') "waqh"            write(weighttype(1:80),'(a)') "waqh"
346            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
347       &         cunit, ivartype, fname_aqh(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, forcingPrecond,
348         &         fname_aqh(ictrlgrad), "maskCtrlC",
349       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
350  #endif  #endif
351    
# Line 349  c          write(cunit) nWetiGlobal(1) Line 357  c          write(cunit) nWetiGlobal(1)
357            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
358            write(weighttype(1:80),'(a)') "wuwind"            write(weighttype(1:80),'(a)') "wuwind"
359            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
360       &         cunit, ivartype, fname_uwind(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, forcingPrecond,
361         &         fname_uwind(ictrlgrad), "maskCtrlC",
362       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
363  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
364        ENDIF        ENDIF
# Line 364  c          write(cunit) nWetiGlobal(1) Line 373  c          write(cunit) nWetiGlobal(1)
373            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
374            write(weighttype(1:80),'(a)') "wvwind"            write(weighttype(1:80),'(a)') "wvwind"
375            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
376       &         cunit, ivartype, fname_vwind(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, forcingPrecond,
377         &         fname_vwind(ictrlgrad), "maskCtrlC",
378       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
379  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
380        ENDIF        ENDIF
# Line 439  c          write(cunit) nWetiGlobal(1) Line 449  c          write(cunit) nWetiGlobal(1)
449            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
450            write(weighttype(1:80),'(a)') "wsst"            write(weighttype(1:80),'(a)') "wsst"
451            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
452       &         cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, forcingPrecond,
453         &         fname_sst(ictrlgrad), "maskCtrlC",
454       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
455  #endif  #endif
456    
# Line 448  c          write(cunit) nWetiGlobal(1) Line 459  c          write(cunit) nWetiGlobal(1)
459            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
460            write(weighttype(1:80),'(a)') "wsss"            write(weighttype(1:80),'(a)') "wsss"
461            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
462       &         cunit, ivartype, fname_sss(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
463         &         fname_sss(ictrlgrad),
464       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
465  #endif  #endif
466    
# Line 457  c          write(cunit) nWetiGlobal(1) Line 469  c          write(cunit) nWetiGlobal(1)
469            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
470            write(weighttype(1:80),'(a)') "wdepth"            write(weighttype(1:80),'(a)') "wdepth"
471            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
472       &         cunit, ivartype, fname_depth(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
473         &         fname_depth(ictrlgrad),
474       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
475  #endif /* ALLOW_DEPTH_CONTROL */  #endif /* ALLOW_DEPTH_CONTROL */
476    
# Line 484  c          write(cunit) nWetiGlobal(1) Line 497  c          write(cunit) nWetiGlobal(1)
497            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
498            write(weighttype(1:80),'(a)') "wbottomdrag"            write(weighttype(1:80),'(a)') "wbottomdrag"
499            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
500       &      cunit, ivartype, fname_bottomdrag(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, forcingPrecond,
501       &      weighttype, lxxadxx, mythid)       &         fname_bottomdrag(ictrlgrad), "maskCtrlC",
502         &         weighttype, lxxadxx, mythid)
503  #endif  #endif
504    
505  #ifdef ALLOW_HFLUXM_CONTROL  #ifdef ALLOW_HFLUXM_CONTROL
# Line 493  c          write(cunit) nWetiGlobal(1) Line 507  c          write(cunit) nWetiGlobal(1)
507            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
508            write(weighttype(1:80),'(a)') "whfluxm"            write(weighttype(1:80),'(a)') "whfluxm"
509            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
510       &         cunit, ivartype, fname_hfluxm(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, forcingPrecond,
511         &         fname_hfluxm(ictrlgrad), "maskCtrlC",
512       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
513  #endif  #endif
514    
# Line 536  c          write(cunit) nWetiGlobal(1) Line 551  c          write(cunit) nWetiGlobal(1)
551            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
552            write(weighttype(1:80),'(a)') "wetan"            write(weighttype(1:80),'(a)') "wetan"
553            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
554       &         cunit, ivartype, fname_etan(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
555         &         fname_etan(ictrlgrad),
556       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
557  #endif  #endif
558    
# Line 545  c          write(cunit) nWetiGlobal(1) Line 561  c          write(cunit) nWetiGlobal(1)
561            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
562            write(weighttype(1:80),'(a)') "wrelaxsst"            write(weighttype(1:80),'(a)') "wrelaxsst"
563            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
564       &         cunit, ivartype, fname_relaxsst(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
565         &         fname_relaxsst(ictrlgrad),
566       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
567  #endif  #endif
568    
# Line 554  c          write(cunit) nWetiGlobal(1) Line 571  c          write(cunit) nWetiGlobal(1)
571            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
572            write(weighttype(1:80),'(a)') "wrelaxsss"            write(weighttype(1:80),'(a)') "wrelaxsss"
573            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
574       &         cunit, ivartype, fname_relaxsss(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
575         &         fname_relaxsss(ictrlgrad),
576       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
577  #endif  #endif
578    
# Line 563  c          write(cunit) nWetiGlobal(1) Line 581  c          write(cunit) nWetiGlobal(1)
581            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
582            write(weighttype(1:80),'(a)') "wprecip"            write(weighttype(1:80),'(a)') "wprecip"
583            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
584       &         cunit, ivartype, fname_precip(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
585         &         fname_precip(ictrlgrad),
586       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
587  #endif  #endif
588    
# Line 572  c          write(cunit) nWetiGlobal(1) Line 591  c          write(cunit) nWetiGlobal(1)
591            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
592            write(weighttype(1:80),'(a)') "wswflux"            write(weighttype(1:80),'(a)') "wswflux"
593            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
594       &         cunit, ivartype, fname_swflux(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
595         &         fname_swflux(ictrlgrad),
596       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
597  #endif  #endif
598    
# Line 581  c          write(cunit) nWetiGlobal(1) Line 601  c          write(cunit) nWetiGlobal(1)
601            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
602            write(weighttype(1:80),'(a)') "wswdown"            write(weighttype(1:80),'(a)') "wswdown"
603            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
604       &         cunit, ivartype, fname_swdown(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
605         &         fname_swdown(ictrlgrad),
606       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
607  #endif  #endif
608    
# Line 590  c          write(cunit) nWetiGlobal(1) Line 611  c          write(cunit) nWetiGlobal(1)
611            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
612            write(weighttype(1:80),'(a)') "wlwflux"            write(weighttype(1:80),'(a)') "wlwflux"
613            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
614       &         cunit, ivartype, fname_lwflux(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
615         &         fname_lwflux(ictrlgrad),
616       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
617  #endif  #endif
618    
# Line 599  c          write(cunit) nWetiGlobal(1) Line 621  c          write(cunit) nWetiGlobal(1)
621            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
622            write(weighttype(1:80),'(a)') "wlwdown"            write(weighttype(1:80),'(a)') "wlwdown"
623            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
624       &         cunit, ivartype, fname_lwdown(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
625         &         fname_lwdown(ictrlgrad),
626       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
627  #endif  #endif
628    
# Line 608  c          write(cunit) nWetiGlobal(1) Line 631  c          write(cunit) nWetiGlobal(1)
631            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
632            write(weighttype(1:80),'(a)') "wevap"            write(weighttype(1:80),'(a)') "wevap"
633            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
634       &         cunit, ivartype, fname_evap(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
635         &         fname_evap(ictrlgrad),
636       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
637  #endif  #endif
638    
# Line 617  c          write(cunit) nWetiGlobal(1) Line 641  c          write(cunit) nWetiGlobal(1)
641            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
642            write(weighttype(1:80),'(a)') "wsnowprecip"            write(weighttype(1:80),'(a)') "wsnowprecip"
643            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
644       &         cunit, ivartype, fname_snowprecip(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
645         &         fname_snowprecip(ictrlgrad),
646       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
647  #endif  #endif
648    
# Line 626  c          write(cunit) nWetiGlobal(1) Line 651  c          write(cunit) nWetiGlobal(1)
651            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
652            write(weighttype(1:80),'(a)') "wapressure"            write(weighttype(1:80),'(a)') "wapressure"
653            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
654       &         cunit, ivartype, fname_apressure(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
655         &         fname_apressure(ictrlgrad),
656       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
657  #endif  #endif
658    
# Line 635  c          write(cunit) nWetiGlobal(1) Line 661  c          write(cunit) nWetiGlobal(1)
661            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
662            write(weighttype(1:80),'(a)') "wrunoff"            write(weighttype(1:80),'(a)') "wrunoff"
663            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
664       &         cunit, ivartype, fname_runoff(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
665         &         fname_runoff(ictrlgrad),
666       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
667  #endif  #endif
668    
# Line 644  c          write(cunit) nWetiGlobal(1) Line 671  c          write(cunit) nWetiGlobal(1)
671            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
672            write(weighttype(1:80),'(a)') "wunit"            write(weighttype(1:80),'(a)') "wunit"
673            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
674       &         cunit, ivartype, fname_siarea(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
675         &         fname_siarea(ictrlgrad),
676       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
677  #endif  #endif
678    
# Line 653  c          write(cunit) nWetiGlobal(1) Line 681  c          write(cunit) nWetiGlobal(1)
681            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
682            write(weighttype(1:80),'(a)') "wunit"            write(weighttype(1:80),'(a)') "wunit"
683            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
684       &         cunit, ivartype, fname_siheff(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
685         &         fname_siheff(ictrlgrad),
686       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
687  #endif  #endif
688    
# Line 662  c          write(cunit) nWetiGlobal(1) Line 691  c          write(cunit) nWetiGlobal(1)
691            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
692            write(weighttype(1:80),'(a)') "wunit"            write(weighttype(1:80),'(a)') "wunit"
693            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
694       &         cunit, ivartype, fname_sihsnow(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
695         &         fname_sihsnow(ictrlgrad),
696       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
697  #endif  #endif
698    
# Line 680  c          write(cunit) nWetiGlobal(1) Line 710  c          write(cunit) nWetiGlobal(1)
710            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
711            write(weighttype(1:80),'(a)') "wshifwflx"            write(weighttype(1:80),'(a)') "wshifwflx"
712            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
713       &         cunit, ivartype, fname_shifwflx(ictrlgrad),       &         cunit, ivartype, forcingPrecond,
714         &         fname_shifwflx(ictrlgrad),
715       &         "maskCtrlI", weighttype, lxxadxx, mythid)       &         "maskCtrlI", weighttype, lxxadxx, mythid)
716  #endif  #endif
717    
# Line 689  c          write(cunit) nWetiGlobal(1) Line 720  c          write(cunit) nWetiGlobal(1)
720            call ctrl_set_fname( xx_genarr2d_file(iarr),            call ctrl_set_fname( xx_genarr2d_file(iarr),
721       O                         fname_local, mythid )       O                         fname_local, mythid )
722            ivartype    = 100+iarr            ivartype    = 100+iarr
723            write(weighttype(1:80),'(80a)') ' '  cc          write(weighttype(1:80),'(80a)') ' '
724            write(weighttype(1:80),'(a)') "wunit"  cc          write(weighttype(1:80),'(a)') "wunit"
725            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
726       &         cunit, ivartype, fname_local(ictrlgrad),       &         cunit, ivartype, genarr2dPrecond(iarr),
727       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         fname_local(ictrlgrad), "maskCtrlC",
728         &         xx_genarr2d_weight(iarr),
729         &         lxxadxx, mythid)
730         enddo         enddo
731  #endif  #endif
732    
# Line 702  c          write(cunit) nWetiGlobal(1) Line 735  c          write(cunit) nWetiGlobal(1)
735            call ctrl_set_fname( xx_genarr3d_file(iarr),            call ctrl_set_fname( xx_genarr3d_file(iarr),
736       O                         fname_local, mythid )       O                         fname_local, mythid )
737            ivartype    = 200+iarr            ivartype    = 200+iarr
738            write(weighttype(1:80),'(80a)') ' '  cc          write(weighttype(1:80),'(80a)') ' '
739            write(weighttype(1:80),'(a)') "wunit"  cc          write(weighttype(1:80),'(a)') "wunit"
740            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
741       &         cunit, ivartype, fname_local(ictrlgrad),       &         cunit, ivartype, fname_local(ictrlgrad), "maskCtrlC",
742       &         "maskCtrlC", weighttype, wunit, lxxadxx, mythid)       &         xx_genarr3d_weight(iarr),
743         &         wunit, lxxadxx, mythid)
744         enddo         enddo
745  #endif  #endif
746    
# Line 715  c          write(cunit) nWetiGlobal(1) Line 749  c          write(cunit) nWetiGlobal(1)
749            call ctrl_set_fname( xx_gentim2d_file(iarr),            call ctrl_set_fname( xx_gentim2d_file(iarr),
750       O                         fname_local, mythid )       O                         fname_local, mythid )
751            ivartype    = 300+iarr            ivartype    = 300+iarr
752            write(weighttype(1:80),'(80a)') ' '  cc          write(weighttype(1:80),'(80a)') ' '
753            write(weighttype(1:80),'(a)') "wunit"  cc          write(weighttype(1:80),'(a)') "wunit"
754            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
755       &         cunit, ivartype, fname_local(ictrlgrad),       &         cunit, ivartype, gentim2dPrecond(iarr),
756       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         fname_local(ictrlgrad), "maskCtrlC",
757         &         xx_gentim2d_weight(iarr),
758         &         lxxadxx, mythid)
759         enddo         enddo
760  #endif  #endif
761    
Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50
  ViewVC Help
Powered by ViewVC 1.1.22