/[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.18 by heimbach, Mon Feb 28 17:29:38 2005 UTC revision 1.32 by gforget, Sat Feb 2 02:34:50 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)        call ctrl_set_fname(xx_edtaux_file, fname_edtaux, mythid)
142        call ctrl_set_fname(xx_edtauy_file, fname_edtauy, mythid)        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 202  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 262  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 271  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 280  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 289  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 334  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 343  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 352  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 403  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 412  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    
# Line 421  C     place holder of obsolete variable Line 441  C     place holder of obsolete variable
441            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
442            write(weighttype(1:80),'(a)') "wedtaux"            write(weighttype(1:80),'(a)') "wedtaux"
443            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
444       &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskW",       &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",
445       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wedtaux, lxxadxx, mythid)
446  #endif  #endif
447    
448  #ifdef ALLOW_EDTAUY_CONTROL  #ifdef ALLOW_EDTAUY_CONTROL
# Line 430  C     place holder of obsolete variable Line 450  C     place holder of obsolete variable
450            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
451            write(weighttype(1:80),'(a)') "wedtauy"            write(weighttype(1:80),'(a)') "wedtauy"
452            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
453       &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskS",       &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS",
454         &         weighttype, wedtauy, lxxadxx, mythid)
455    #endif
456    
457    #ifdef ALLOW_UVEL0_CONTROL
458              ivartype = 27
459              write(weighttype(1:80),'(80a)') ' '
460              write(weighttype(1:80),'(a)') "wuvel"
461              call ctrl_set_pack_xyz(
462         &         cunit, ivartype, fname_uvel(ictrlgrad), "maskCtrlW",
463         &         weighttype, wunit, lxxadxx, mythid)
464    #endif
465    
466    #ifdef ALLOW_VVEL0_CONTROL
467              ivartype = 28
468              write(weighttype(1:80),'(80a)') ' '
469              write(weighttype(1:80),'(a)') "wvvel"
470              call ctrl_set_pack_xyz(
471         &         cunit, ivartype, fname_vvel(ictrlgrad), "maskCtrlS",
472       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
473  #endif  #endif
474    
475    #ifdef ALLOW_ETAN0_CONTROL
476              ivartype = 29
477              write(weighttype(1:80),'(80a)') ' '
478              write(weighttype(1:80),'(a)') "wetan"
479              call ctrl_set_pack_xy(
480         &         cunit, ivartype, fname_etan(ictrlgrad),
481         &         "maskCtrlC", weighttype, lxxadxx, mythid)
482    #endif
483    
484    #ifdef ALLOW_RELAXSST_CONTROL
485              ivartype = 30
486              write(weighttype(1:80),'(80a)') ' '
487              write(weighttype(1:80),'(a)') "wrelaxsst"
488              call ctrl_set_pack_xy(
489         &         cunit, ivartype, fname_relaxsst(ictrlgrad),
490         &         "maskCtrlC", weighttype, lxxadxx, mythid)
491    #endif
492    
493    #ifdef ALLOW_RELAXSSS_CONTROL
494              ivartype = 31
495              write(weighttype(1:80),'(80a)') ' '
496              write(weighttype(1:80),'(a)') "wrelaxsss"
497              call ctrl_set_pack_xy(
498         &         cunit, ivartype, fname_relaxsss(ictrlgrad),
499         &         "maskCtrlC", weighttype, lxxadxx, mythid)
500    #endif
501    
502    #ifdef ALLOW_PRECIP_CONTROL
503              ivartype = 32
504              write(weighttype(1:80),'(80a)') ' '
505              write(weighttype(1:80),'(a)') "wprecip"
506              call ctrl_set_pack_xy(
507         &         cunit, ivartype, fname_precip(ictrlgrad),
508         &         "maskCtrlC", weighttype, lxxadxx, mythid)
509    #endif
510    
511    #ifdef ALLOW_SWFLUX_CONTROL
512              ivartype = 33
513              write(weighttype(1:80),'(80a)') ' '
514              write(weighttype(1:80),'(a)') "wswflux"
515              call ctrl_set_pack_xy(
516         &         cunit, ivartype, fname_swflux(ictrlgrad),
517         &         "maskCtrlC", weighttype, lxxadxx, mythid)
518    #endif
519    
520    #ifdef ALLOW_SWDOWN_CONTROL
521              ivartype = 34
522              write(weighttype(1:80),'(80a)') ' '
523              write(weighttype(1:80),'(a)') "wswdown"
524              call ctrl_set_pack_xy(
525         &         cunit, ivartype, fname_swdown(ictrlgrad),
526         &         "maskCtrlC", weighttype, lxxadxx, mythid)
527    #endif
528    
529    #ifdef ALLOW_LWFLUX_CONTROL
530              ivartype = 35
531              write(weighttype(1:80),'(80a)') ' '
532              write(weighttype(1:80),'(a)') "wlwflux"
533              call ctrl_set_pack_xy(
534         &         cunit, ivartype, fname_lwflux(ictrlgrad),
535         &         "maskCtrlC", weighttype, lxxadxx, mythid)
536    #endif
537    
538    #ifdef ALLOW_LWDOWN_CONTROL
539              ivartype = 36
540              write(weighttype(1:80),'(80a)') ' '
541              write(weighttype(1:80),'(a)') "wlwdown"
542              call ctrl_set_pack_xy(
543         &         cunit, ivartype, fname_lwdown(ictrlgrad),
544         &         "maskCtrlC", weighttype, lxxadxx, mythid)
545    #endif
546    
547    #ifdef ALLOW_EVAP_CONTROL
548              ivartype = 37
549              write(weighttype(1:80),'(80a)') ' '
550              write(weighttype(1:80),'(a)') "wevap"
551              call ctrl_set_pack_xy(
552         &         cunit, ivartype, fname_evap(ictrlgrad),
553         &         "maskCtrlC", weighttype, lxxadxx, mythid)
554    #endif
555    
556    #ifdef ALLOW_SNOWPRECIP_CONTROL
557              ivartype = 38
558              write(weighttype(1:80),'(80a)') ' '
559              write(weighttype(1:80),'(a)') "wsnowprecip"
560              call ctrl_set_pack_xy(
561         &         cunit, ivartype, fname_snowprecip(ictrlgrad),
562         &         "maskCtrlC", weighttype, lxxadxx, mythid)
563    #endif
564    
565    #ifdef ALLOW_APRESSURE_CONTROL
566              ivartype = 39
567              write(weighttype(1:80),'(80a)') ' '
568              write(weighttype(1:80),'(a)') "wapressure"
569              call ctrl_set_pack_xy(
570         &         cunit, ivartype, fname_apressure(ictrlgrad),
571         &         "maskCtrlC", weighttype, lxxadxx, mythid)
572    #endif
573    
574    #ifdef ALLOW_RUNOFF_CONTROL
575              ivartype = 40
576              write(weighttype(1:80),'(80a)') ' '
577              write(weighttype(1:80),'(a)') "wrunoff"
578              call ctrl_set_pack_xy(
579         &         cunit, ivartype, fname_runoff(ictrlgrad),
580         &         "maskCtrlC", weighttype, lxxadxx, mythid)
581    #endif
582    
583    #ifdef ALLOW_SIAREA_CONTROL
584              ivartype = 41
585              write(weighttype(1:80),'(80a)') ' '
586              write(weighttype(1:80),'(a)') "wunit"
587              call ctrl_set_pack_xy(
588         &         cunit, ivartype, fname_siarea(ictrlgrad),
589         &         "maskCtrlC", weighttype, lxxadxx, mythid)
590    #endif
591    
592    #ifdef ALLOW_SIHEFF_CONTROL
593              ivartype = 42
594              write(weighttype(1:80),'(80a)') ' '
595              write(weighttype(1:80),'(a)') "wunit"
596              call ctrl_set_pack_xy(
597         &         cunit, ivartype, fname_siheff(ictrlgrad),
598         &         "maskCtrlC", weighttype, lxxadxx, mythid)
599    #endif
600    
601    #ifdef ALLOW_SIHSNOW_CONTROL
602              ivartype = 43
603              write(weighttype(1:80),'(80a)') ' '
604              write(weighttype(1:80),'(a)') "wunit"
605              call ctrl_set_pack_xy(
606         &         cunit, ivartype, fname_sihsnow(ictrlgrad),
607         &         "maskCtrlC", weighttype, lxxadxx, mythid)
608    #endif
609    
610    #ifdef ALLOW_KAPREDI_CONTROL
611              ivartype = 44
612              write(weighttype(1:80),'(80a)') ' '
613              write(weighttype(1:80),'(a)') "wkapredi"
614              call ctrl_set_pack_xyz(
615         &         cunit, ivartype, fname_kapredi(ictrlgrad), "maskCtrlC",
616         &         weighttype, wkapredi, lxxadxx, mythid)
617    #endif
618    
619            close ( cunit )            close ( cunit )
620    
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22