/[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.17 by heimbach, Tue Jan 4 22:02:31 2005 UTC revision 1.33 by gforget, Fri May 30 02:48:28 2008 UTC
# Line 112  c--   Assign file names. Line 112  c--   Assign file names.
112        call ctrl_set_fname(xx_tauv_file, fname_tauv, mythid)        call ctrl_set_fname(xx_tauv_file, fname_tauv, mythid)
113        call ctrl_set_fname(xx_atemp_file, fname_atemp, mythid)        call ctrl_set_fname(xx_atemp_file, fname_atemp, mythid)
114        call ctrl_set_fname(xx_aqh_file, fname_aqh, mythid)        call ctrl_set_fname(xx_aqh_file, fname_aqh, mythid)
115          call ctrl_set_fname(xx_precip_file, fname_precip, mythid)
116          call ctrl_set_fname(xx_swflux_file, fname_swflux, mythid)
117          call ctrl_set_fname(xx_swdown_file, fname_swdown, mythid)
118          call ctrl_set_fname(xx_lwflux_file, fname_lwflux, mythid)
119          call ctrl_set_fname(xx_lwdown_file, fname_lwdown, mythid)
120          call ctrl_set_fname(xx_evap_file, fname_evap, mythid)
121          call ctrl_set_fname(xx_snowprecip_file, fname_snowprecip, mythid)
122          call ctrl_set_fname(xx_apressure_file, fname_apressure, mythid)
123          call ctrl_set_fname(xx_runoff_file, fname_runoff, mythid)
124    
125        call ctrl_set_fname(xx_uwind_file, fname_uwind, mythid)        call ctrl_set_fname(xx_uwind_file, fname_uwind, mythid)
126        call ctrl_set_fname(xx_vwind_file, fname_vwind, mythid)        call ctrl_set_fname(xx_vwind_file, fname_vwind, mythid)
127        call ctrl_set_fname(xx_obcsn_file, fname_obcsn, mythid)        call ctrl_set_fname(xx_obcsn_file, fname_obcsn, mythid)
# Line 120  c--   Assign file names. Line 130  c--   Assign file names.
130        call ctrl_set_fname(xx_obcse_file, fname_obcse, mythid)        call ctrl_set_fname(xx_obcse_file, fname_obcse, mythid)
131        call ctrl_set_fname(xx_diffkr_file, fname_diffkr, mythid)        call ctrl_set_fname(xx_diffkr_file, fname_diffkr, mythid)
132        call ctrl_set_fname(xx_kapgm_file, fname_kapgm, mythid)        call ctrl_set_fname(xx_kapgm_file, fname_kapgm, mythid)
133          call ctrl_set_fname(xx_kapredi_file, fname_kapredi, mythid)
134        call ctrl_set_fname(xx_tr1_file, fname_tr1, mythid)        call ctrl_set_fname(xx_tr1_file, fname_tr1, mythid)
135        call ctrl_set_fname(xx_sst_file, fname_sst, mythid)        call ctrl_set_fname(xx_sst_file, fname_sst, mythid)
136        call ctrl_set_fname(xx_sss_file, fname_sss, mythid)        call ctrl_set_fname(xx_sss_file, fname_sss, mythid)
137        call ctrl_set_fname(xx_hfacc_file, fname_hfacc, mythid)        call ctrl_set_fname(xx_depth_file, fname_depth, mythid)
138        call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid)        call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid)
139        call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid)        call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid)
140        call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid)        call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid)
141          call ctrl_set_fname(xx_edtaux_file, fname_edtaux, mythid)
142          call ctrl_set_fname(xx_edtauy_file, fname_edtauy, mythid)
143          call ctrl_set_fname(xx_uvel_file, fname_uvel, mythid)
144          call ctrl_set_fname(xx_vvel_file, fname_vvel, mythid)
145          call ctrl_set_fname(xx_etan_file, fname_etan, mythid)
146          call ctrl_set_fname(xx_relaxsst_file, fname_relaxsst, mythid)
147          call ctrl_set_fname(xx_relaxsss_file, fname_relaxsss, mythid)
148          call ctrl_set_fname(xx_siarea_file, fname_siarea, mythid)
149          call ctrl_set_fname(xx_siheff_file, fname_siheff, mythid)
150          call ctrl_set_fname(xx_sihsnow_file, fname_sihsnow, mythid)
151    cHFLUXM_CONTROL
152          call ctrl_set_fname(xx_hfluxm_file, fname_hfluxm, mythid)
153    cHFLUXM_CONTROL
154    
155  c  c--   Only the master thread will do I/O.
 c--     Only the master thread will do I/O.  
156        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
157    
158        if ( first ) then        if ( first ) then
# Line 200  C     place holder of obsolete variable Line 223  C     place holder of obsolete variable
223  #ifdef ALLOW_THETA0_CONTROL  #ifdef ALLOW_THETA0_CONTROL
224            ivartype = 1            ivartype = 1
225            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
226            write(weighttype(1:80),'(a)') "wtheta"            write(weighttype(1:80),'(a)') "wthetaLev"
227            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
228       &         cunit, ivartype, fname_theta(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC",
229       &         weighttype, wtheta, lxxadxx, mythid)       &         weighttype, wtheta, lxxadxx, mythid)
230  #endif  #endif
231    
232  #ifdef ALLOW_SALT0_CONTROL  #ifdef ALLOW_SALT0_CONTROL
233            ivartype = 2            ivartype = 2
234            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
235            write(weighttype(1:80),'(a)') "wsalt"            write(weighttype(1:80),'(a)') "wsaltLev"
236            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
237       &         cunit, ivartype, fname_salt(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC",
238       &         weighttype, wsalt, lxxadxx, mythid)       &         weighttype, wsalt, lxxadxx, mythid)
239  #endif  #endif
240    
241  #if (defined (ALLOW_HFLUX_CONTROL) || \  #if (defined (ALLOW_HFLUX_CONTROL) || defined (ALLOW_HFLUX0_CONTROL))
      defined (ALLOW_HFLUX0_CONTROL))  
242            ivartype = 3            ivartype = 3
243            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
244            write(weighttype(1:80),'(a)') "whflux"            write(weighttype(1:80),'(a)') "whflux"
245            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
246       &         cunit, ivartype, fname_hflux(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_hflux(ictrlgrad), "maskCtrlC",
247       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
248  #endif  #endif
249    
250  #if (defined (ALLOW_SFLUX_CONTROL) || \  #if (defined (ALLOW_SFLUX_CONTROL) || defined (ALLOW_SFLUX0_CONTROL))
      defined (ALLOW_SFLUX0_CONTROL))  
251            ivartype = 4            ivartype = 4
252            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
253            write(weighttype(1:80),'(a)') "wsflux"            write(weighttype(1:80),'(a)') "wsflux"
254            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
255       &         cunit, ivartype, fname_sflux(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_sflux(ictrlgrad), "maskCtrlC",
256       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
257  #endif  #endif
258    
259  #if (defined (ALLOW_USTRESS_CONTROL) || \  #if (defined (ALLOW_USTRESS_CONTROL) || defined (ALLOW_TAUU0_CONTROL))
      defined (ALLOW_TAUU0_CONTROL))  
260            ivartype = 5            ivartype = 5
261            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
262            write(weighttype(1:80),'(a)') "wtauu"            write(weighttype(1:80),'(a)') "wtauu"
263            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
264       &         cunit, ivartype, fname_tauu(ictrlgrad), "maskW",       &         cunit, ivartype, fname_tauu(ictrlgrad), "maskCtrlW",
265       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
266  #endif  #endif
267    
268  #if (defined (ALLOW_VSTRESS_CONTROL) || \  #if (defined (ALLOW_VSTRESS_CONTROL) || defined (ALLOW_TAUV0_CONTROL))
      defined (ALLOW_TAUV0_CONTROL))  
269            ivartype = 6            ivartype = 6
270            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
271            write(weighttype(1:80),'(a)') "wtauv"            write(weighttype(1:80),'(a)') "wtauv"
272            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
273       &         cunit, ivartype, fname_tauv(ictrlgrad), "maskS",       &         cunit, ivartype, fname_tauv(ictrlgrad), "maskCtrlS",
274       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
275  #endif  #endif
276    
# Line 260  C     place holder of obsolete variable Line 279  C     place holder of obsolete variable
279            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
280            write(weighttype(1:80),'(a)') "watemp"            write(weighttype(1:80),'(a)') "watemp"
281            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
282       &         cunit, ivartype, fname_atemp(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_atemp(ictrlgrad), "maskCtrlC",
283       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
284  #endif  #endif
285    
# Line 269  C     place holder of obsolete variable Line 288  C     place holder of obsolete variable
288            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
289            write(weighttype(1:80),'(a)') "waqh"            write(weighttype(1:80),'(a)') "waqh"
290            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
291       &         cunit, ivartype, fname_aqh(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_aqh(ictrlgrad), "maskCtrlC",
292       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
293  #endif  #endif
294    
# Line 278  C     place holder of obsolete variable Line 297  C     place holder of obsolete variable
297            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
298            write(weighttype(1:80),'(a)') "wuwind"            write(weighttype(1:80),'(a)') "wuwind"
299            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
300       &         cunit, ivartype, fname_uwind(ictrlgrad), "maskW",       &         cunit, ivartype, fname_uwind(ictrlgrad), "maskCtrlC",
301       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
302  #endif  #endif
303    
# Line 287  C     place holder of obsolete variable Line 306  C     place holder of obsolete variable
306            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
307            write(weighttype(1:80),'(a)') "wvwind"            write(weighttype(1:80),'(a)') "wvwind"
308            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
309       &         cunit, ivartype, fname_vwind(ictrlgrad), "maskS",       &         cunit, ivartype, fname_vwind(ictrlgrad), "maskCtrlC",
310       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
311  #endif  #endif
312    
# Line 332  C     place holder of obsolete variable Line 351  C     place holder of obsolete variable
351            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
352            write(weighttype(1:80),'(a)') "wdiffkr"            write(weighttype(1:80),'(a)') "wdiffkr"
353            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
354       &         cunit, ivartype, fname_diffkr(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC",
355       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wdiffkr, lxxadxx, mythid)
356  #endif  #endif
357    
358  #ifdef ALLOW_KAPGM_CONTROL  #ifdef ALLOW_KAPGM_CONTROL
# Line 341  C     place holder of obsolete variable Line 360  C     place holder of obsolete variable
360            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
361            write(weighttype(1:80),'(a)') "wkapgm"            write(weighttype(1:80),'(a)') "wkapgm"
362            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
363       &         cunit, ivartype, fname_kapgm(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC",
364       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wkapgm, lxxadxx, mythid)
365  #endif  #endif
366    
367  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_TR10_CONTROL
# Line 350  C     place holder of obsolete variable Line 369  C     place holder of obsolete variable
369            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
370            write(weighttype(1:80),'(a)') "wtr1"            write(weighttype(1:80),'(a)') "wtr1"
371            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
372       &         cunit, ivartype, fname_tr1(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC",
373       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
374  #endif  #endif
375    
376  #ifdef ALLOW_SST0_CONTROL  #if (defined (ALLOW_SST_CONTROL) || defined (ALLOW_SST0_CONTROL))
377            ivartype = 18            ivartype = 18
378            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
379            write(weighttype(1:80),'(a)') "wsst0"            write(weighttype(1:80),'(a)') "wsst"
380            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
381       &         cunit, ivartype, fname_sst(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC",
382       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
383  #endif  #endif
384    
385  #ifdef ALLOW_SSS0_CONTROL  #if (defined (ALLOW_SSS_CONTROL) || defined (ALLOW_SSS0_CONTROL))
386            ivartype = 19            ivartype = 19
387            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
388            write(weighttype(1:80),'(a)') "wsss0"            write(weighttype(1:80),'(a)') "wsss"
389            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
390       &         cunit, ivartype, fname_sss(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_sss(ictrlgrad),
391       &         weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
392  #endif  #endif
393    
394  #ifdef ALLOW_HFACC_CONTROL  #ifdef ALLOW_DEPTH_CONTROL
395            ivartype = 20            ivartype = 20
396            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
397            write(weighttype(1:80),'(a)') "whfacc"            write(weighttype(1:80),'(a)') "wdepth"
 # ifdef ALLOW_HFACC3D_CONTROL  
           call ctrl_set_pack_xyz(  
      &         cunit, ivartype, fname_hfacc(ictrlgrad), "hFacC",  
      &         weighttype, wunit, lxxadxx, mythid)  
 # else  
398            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
399       &         cunit, ivartype, fname_hfacc(ictrlgrad), "hFacC",       &         cunit, ivartype, fname_depth(ictrlgrad),
400       &         weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
401  # endif  #endif /* ALLOW_DEPTH_CONTROL */
 #endif  
402    
403  #ifdef ALLOW_EFLUXY0_CONTROL  #ifdef ALLOW_EFLUXY0_CONTROL
404            ivartype = 21            ivartype = 21
405            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
406            write(weighttype(1:80),'(a)') "wefluxy0"            write(weighttype(1:80),'(a)') "wefluxy0"
407            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
408       &         cunit, ivartype, fname_efluxy(ictrlgrad), "hFacS",       &         cunit, ivartype, fname_efluxy(ictrlgrad), "maskCtrlS",
409       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
410  #endif  #endif
411    
# Line 401  C     place holder of obsolete variable Line 414  C     place holder of obsolete variable
414            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
415            write(weighttype(1:80),'(a)') "wefluxp0"            write(weighttype(1:80),'(a)') "wefluxp0"
416            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
417       &         cunit, ivartype, fname_efluxp(ictrlgrad), "hFacV",       &         cunit, ivartype, fname_efluxp(ictrlgrad), "maskhFacV",
418       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
419  #endif  #endif
420    
# Line 410  C     place holder of obsolete variable Line 423  C     place holder of obsolete variable
423            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
424            write(weighttype(1:80),'(a)') "wbottomdrag"            write(weighttype(1:80),'(a)') "wbottomdrag"
425            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
426       &         cunit, ivartype, fname_bottomdrag(ictrlgrad), "hFacC",       &      cunit, ivartype, fname_bottomdrag(ictrlgrad), "maskCtrlC",
427         &      weighttype, lxxadxx, mythid)
428    #endif
429    
430    #ifdef ALLOW_HFLUXM_CONTROL
431              ivartype = 24
432              write(weighttype(1:80),'(80a)') ' '
433              write(weighttype(1:80),'(a)') "whfluxm"
434              call ctrl_set_pack_xy(
435         &         cunit, ivartype, fname_hfluxm(ictrlgrad), "maskCtrlC",
436       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
437  #endif  #endif
438    
439    #ifdef ALLOW_EDDYPSI_CONTROL
440              ivartype = 25
441              write(weighttype(1:80),'(80a)') ' '
442              write(weighttype(1:80),'(a)') "wedtaux"
443              call ctrl_set_pack_xyz(
444         &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",
445         &         weighttype, wedtaux, lxxadxx, mythid)
446    
447              ivartype = 26
448              write(weighttype(1:80),'(80a)') ' '
449              write(weighttype(1:80),'(a)') "wedtauy"
450              call ctrl_set_pack_xyz(
451         &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS",
452         &         weighttype, wedtauy, lxxadxx, mythid)
453    #endif
454    
455    #ifdef ALLOW_UVEL0_CONTROL
456              ivartype = 27
457              write(weighttype(1:80),'(80a)') ' '
458              write(weighttype(1:80),'(a)') "wuvel"
459              call ctrl_set_pack_xyz(
460         &         cunit, ivartype, fname_uvel(ictrlgrad), "maskCtrlW",
461         &         weighttype, wunit, lxxadxx, mythid)
462    #endif
463    
464    #ifdef ALLOW_VVEL0_CONTROL
465              ivartype = 28
466              write(weighttype(1:80),'(80a)') ' '
467              write(weighttype(1:80),'(a)') "wvvel"
468              call ctrl_set_pack_xyz(
469         &         cunit, ivartype, fname_vvel(ictrlgrad), "maskCtrlS",
470         &         weighttype, wunit, lxxadxx, mythid)
471    #endif
472    
473    #ifdef ALLOW_ETAN0_CONTROL
474              ivartype = 29
475              write(weighttype(1:80),'(80a)') ' '
476              write(weighttype(1:80),'(a)') "wetan"
477              call ctrl_set_pack_xy(
478         &         cunit, ivartype, fname_etan(ictrlgrad),
479         &         "maskCtrlC", weighttype, lxxadxx, mythid)
480    #endif
481    
482    #ifdef ALLOW_RELAXSST_CONTROL
483              ivartype = 30
484              write(weighttype(1:80),'(80a)') ' '
485              write(weighttype(1:80),'(a)') "wrelaxsst"
486              call ctrl_set_pack_xy(
487         &         cunit, ivartype, fname_relaxsst(ictrlgrad),
488         &         "maskCtrlC", weighttype, lxxadxx, mythid)
489    #endif
490    
491    #ifdef ALLOW_RELAXSSS_CONTROL
492              ivartype = 31
493              write(weighttype(1:80),'(80a)') ' '
494              write(weighttype(1:80),'(a)') "wrelaxsss"
495              call ctrl_set_pack_xy(
496         &         cunit, ivartype, fname_relaxsss(ictrlgrad),
497         &         "maskCtrlC", weighttype, lxxadxx, mythid)
498    #endif
499    
500    #ifdef ALLOW_PRECIP_CONTROL
501              ivartype = 32
502              write(weighttype(1:80),'(80a)') ' '
503              write(weighttype(1:80),'(a)') "wprecip"
504              call ctrl_set_pack_xy(
505         &         cunit, ivartype, fname_precip(ictrlgrad),
506         &         "maskCtrlC", weighttype, lxxadxx, mythid)
507    #endif
508    
509    #ifdef ALLOW_SWFLUX_CONTROL
510              ivartype = 33
511              write(weighttype(1:80),'(80a)') ' '
512              write(weighttype(1:80),'(a)') "wswflux"
513              call ctrl_set_pack_xy(
514         &         cunit, ivartype, fname_swflux(ictrlgrad),
515         &         "maskCtrlC", weighttype, lxxadxx, mythid)
516    #endif
517    
518    #ifdef ALLOW_SWDOWN_CONTROL
519              ivartype = 34
520              write(weighttype(1:80),'(80a)') ' '
521              write(weighttype(1:80),'(a)') "wswdown"
522              call ctrl_set_pack_xy(
523         &         cunit, ivartype, fname_swdown(ictrlgrad),
524         &         "maskCtrlC", weighttype, lxxadxx, mythid)
525    #endif
526    
527    #ifdef ALLOW_LWFLUX_CONTROL
528              ivartype = 35
529              write(weighttype(1:80),'(80a)') ' '
530              write(weighttype(1:80),'(a)') "wlwflux"
531              call ctrl_set_pack_xy(
532         &         cunit, ivartype, fname_lwflux(ictrlgrad),
533         &         "maskCtrlC", weighttype, lxxadxx, mythid)
534    #endif
535    
536    #ifdef ALLOW_LWDOWN_CONTROL
537              ivartype = 36
538              write(weighttype(1:80),'(80a)') ' '
539              write(weighttype(1:80),'(a)') "wlwdown"
540              call ctrl_set_pack_xy(
541         &         cunit, ivartype, fname_lwdown(ictrlgrad),
542         &         "maskCtrlC", weighttype, lxxadxx, mythid)
543    #endif
544    
545    #ifdef ALLOW_EVAP_CONTROL
546              ivartype = 37
547              write(weighttype(1:80),'(80a)') ' '
548              write(weighttype(1:80),'(a)') "wevap"
549              call ctrl_set_pack_xy(
550         &         cunit, ivartype, fname_evap(ictrlgrad),
551         &         "maskCtrlC", weighttype, lxxadxx, mythid)
552    #endif
553    
554    #ifdef ALLOW_SNOWPRECIP_CONTROL
555              ivartype = 38
556              write(weighttype(1:80),'(80a)') ' '
557              write(weighttype(1:80),'(a)') "wsnowprecip"
558              call ctrl_set_pack_xy(
559         &         cunit, ivartype, fname_snowprecip(ictrlgrad),
560         &         "maskCtrlC", weighttype, lxxadxx, mythid)
561    #endif
562    
563    #ifdef ALLOW_APRESSURE_CONTROL
564              ivartype = 39
565              write(weighttype(1:80),'(80a)') ' '
566              write(weighttype(1:80),'(a)') "wapressure"
567              call ctrl_set_pack_xy(
568         &         cunit, ivartype, fname_apressure(ictrlgrad),
569         &         "maskCtrlC", weighttype, lxxadxx, mythid)
570    #endif
571    
572    #ifdef ALLOW_RUNOFF_CONTROL
573              ivartype = 40
574              write(weighttype(1:80),'(80a)') ' '
575              write(weighttype(1:80),'(a)') "wrunoff"
576              call ctrl_set_pack_xy(
577         &         cunit, ivartype, fname_runoff(ictrlgrad),
578         &         "maskCtrlC", weighttype, lxxadxx, mythid)
579    #endif
580    
581    #ifdef ALLOW_SIAREA_CONTROL
582              ivartype = 41
583              write(weighttype(1:80),'(80a)') ' '
584              write(weighttype(1:80),'(a)') "wunit"
585              call ctrl_set_pack_xy(
586         &         cunit, ivartype, fname_siarea(ictrlgrad),
587         &         "maskCtrlC", weighttype, lxxadxx, mythid)
588    #endif
589    
590    #ifdef ALLOW_SIHEFF_CONTROL
591              ivartype = 42
592              write(weighttype(1:80),'(80a)') ' '
593              write(weighttype(1:80),'(a)') "wunit"
594              call ctrl_set_pack_xy(
595         &         cunit, ivartype, fname_siheff(ictrlgrad),
596         &         "maskCtrlC", weighttype, lxxadxx, mythid)
597    #endif
598    
599    #ifdef ALLOW_SIHSNOW_CONTROL
600              ivartype = 43
601              write(weighttype(1:80),'(80a)') ' '
602              write(weighttype(1:80),'(a)') "wunit"
603              call ctrl_set_pack_xy(
604         &         cunit, ivartype, fname_sihsnow(ictrlgrad),
605         &         "maskCtrlC", weighttype, lxxadxx, mythid)
606    #endif
607    
608    #ifdef ALLOW_KAPREDI_CONTROL
609              ivartype = 44
610              write(weighttype(1:80),'(80a)') ' '
611              write(weighttype(1:80),'(a)') "wkapredi"
612              call ctrl_set_pack_xyz(
613         &         cunit, ivartype, fname_kapredi(ictrlgrad), "maskCtrlC",
614         &         weighttype, wkapredi, lxxadxx, mythid)
615    #endif
616    
617            close ( cunit )            close ( cunit )
618    
619          _END_MASTER( mythid )          _END_MASTER( mythid )
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22