/[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.22 by heimbach, Thu Jul 28 19:51:22 2005 UTC revision 1.28 by heimbach, Wed Jun 7 01:55:14 2006 UTC
# Line 114  c--   Assign file names. Line 114  c--   Assign file names.
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)        call ctrl_set_fname(xx_precip_file, fname_precip, mythid)
116        call ctrl_set_fname(xx_swflux_file, fname_swflux, mythid)        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_uwind_file, fname_uwind, mythid)        call ctrl_set_fname(xx_uwind_file, fname_uwind, mythid)
119        call ctrl_set_fname(xx_vwind_file, fname_vwind, mythid)        call ctrl_set_fname(xx_vwind_file, fname_vwind, mythid)
120        call ctrl_set_fname(xx_obcsn_file, fname_obcsn, mythid)        call ctrl_set_fname(xx_obcsn_file, fname_obcsn, mythid)
# Line 125  c--   Assign file names. Line 126  c--   Assign file names.
126        call ctrl_set_fname(xx_tr1_file, fname_tr1, mythid)        call ctrl_set_fname(xx_tr1_file, fname_tr1, mythid)
127        call ctrl_set_fname(xx_sst_file, fname_sst, mythid)        call ctrl_set_fname(xx_sst_file, fname_sst, mythid)
128        call ctrl_set_fname(xx_sss_file, fname_sss, mythid)        call ctrl_set_fname(xx_sss_file, fname_sss, mythid)
129        call ctrl_set_fname(xx_hfacc_file, fname_hfacc, mythid)        call ctrl_set_fname(xx_depth_file, fname_depth, mythid)
130        call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid)        call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid)
131        call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid)        call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid)
132        call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid)        call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid)
# Line 208  C     place holder of obsolete variable Line 209  C     place holder of obsolete variable
209  #ifdef ALLOW_THETA0_CONTROL  #ifdef ALLOW_THETA0_CONTROL
210            ivartype = 1            ivartype = 1
211            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
212            write(weighttype(1:80),'(a)') "wtheta"            write(weighttype(1:80),'(a)') "wthetaLev"
213            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
214       &         cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC",
215       &         weighttype, wtheta, lxxadxx, mythid)       &         weighttype, wtheta, lxxadxx, mythid)
# Line 217  C     place holder of obsolete variable Line 218  C     place holder of obsolete variable
218  #ifdef ALLOW_SALT0_CONTROL  #ifdef ALLOW_SALT0_CONTROL
219            ivartype = 2            ivartype = 2
220            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
221            write(weighttype(1:80),'(a)') "wsalt"            write(weighttype(1:80),'(a)') "wsaltLev"
222            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
223       &         cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC",
224       &         weighttype, wsalt, lxxadxx, mythid)       &         weighttype, wsalt, lxxadxx, mythid)
225  #endif  #endif
226    
227  #if (defined (ALLOW_HFLUX_CONTROL) || \  #if (defined (ALLOW_HFLUX_CONTROL) || defined (ALLOW_HFLUX0_CONTROL))
      defined (ALLOW_HFLUX0_CONTROL))  
228            ivartype = 3            ivartype = 3
229            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
230            write(weighttype(1:80),'(a)') "whflux"            write(weighttype(1:80),'(a)') "whflux"
# Line 233  C     place holder of obsolete variable Line 233  C     place holder of obsolete variable
233       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
234  #endif  #endif
235    
236  #if (defined (ALLOW_SFLUX_CONTROL) || \  #if (defined (ALLOW_SFLUX_CONTROL) || defined (ALLOW_SFLUX0_CONTROL))
      defined (ALLOW_SFLUX0_CONTROL))  
237            ivartype = 4            ivartype = 4
238            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
239            write(weighttype(1:80),'(a)') "wsflux"            write(weighttype(1:80),'(a)') "wsflux"
# Line 243  C     place holder of obsolete variable Line 242  C     place holder of obsolete variable
242       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
243  #endif  #endif
244    
245  #if (defined (ALLOW_USTRESS_CONTROL) || \  #if (defined (ALLOW_USTRESS_CONTROL) || defined (ALLOW_TAUU0_CONTROL))
      defined (ALLOW_TAUU0_CONTROL))  
246            ivartype = 5            ivartype = 5
247            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
248            write(weighttype(1:80),'(a)') "wtauu"            write(weighttype(1:80),'(a)') "wtauu"
# Line 253  C     place holder of obsolete variable Line 251  C     place holder of obsolete variable
251       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
252  #endif  #endif
253    
254  #if (defined (ALLOW_VSTRESS_CONTROL) || \  #if (defined (ALLOW_VSTRESS_CONTROL) || defined (ALLOW_TAUV0_CONTROL))
      defined (ALLOW_TAUV0_CONTROL))  
255            ivartype = 6            ivartype = 6
256            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
257            write(weighttype(1:80),'(a)') "wtauv"            write(weighttype(1:80),'(a)') "wtauv"
# Line 341  C     place holder of obsolete variable Line 338  C     place holder of obsolete variable
338            write(weighttype(1:80),'(a)') "wdiffkr"            write(weighttype(1:80),'(a)') "wdiffkr"
339            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
340       &         cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC",
341       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wdiffkr, lxxadxx, mythid)
342  #endif  #endif
343    
344  #ifdef ALLOW_KAPGM_CONTROL  #ifdef ALLOW_KAPGM_CONTROL
# Line 350  C     place holder of obsolete variable Line 347  C     place holder of obsolete variable
347            write(weighttype(1:80),'(a)') "wkapgm"            write(weighttype(1:80),'(a)') "wkapgm"
348            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
349       &         cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC",
350       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wkapgm, lxxadxx, mythid)
351  #endif  #endif
352    
353  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_TR10_CONTROL
# Line 362  C     place holder of obsolete variable Line 359  C     place holder of obsolete variable
359       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
360  #endif  #endif
361    
362  #ifdef ALLOW_SST0_CONTROL  #if (defined (ALLOW_SST_CONTROL) || defined (ALLOW_SST0_CONTROL))
363            ivartype = 18            ivartype = 18
364            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
365            write(weighttype(1:80),'(a)') "wsst0"            write(weighttype(1:80),'(a)') "wsst"
366            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
367       &         cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC",
368       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
369  #endif  #endif
370    
371  #ifdef ALLOW_SSS0_CONTROL  #if (defined (ALLOW_SSS_CONTROL) || defined (ALLOW_SSS0_CONTROL))
372            ivartype = 19            ivartype = 19
373            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
374            write(weighttype(1:80),'(a)') "wsss0"            write(weighttype(1:80),'(a)') "wsss"
375            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
376       &         cunit, ivartype, fname_sss(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_sss(ictrlgrad), "maskCtrlC",
377       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
378  #endif  #endif
379    
380  #ifdef ALLOW_HFACC_CONTROL  #ifdef ALLOW_DEPTH_CONTROL
381            ivartype = 20            ivartype = 20
382            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
383            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), "maskCtrlC",  
      &         weighttype, wunit, lxxadxx, mythid)  
 # else  
384            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
385       &         cunit, ivartype, fname_hfacc(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_depth(ictrlgrad), "maskCtrlC",
386       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
387  # endif  #endif /* ALLOW_DEPTH_CONTROL */
 #endif  
388    
389  #ifdef ALLOW_EFLUXY0_CONTROL  #ifdef ALLOW_EFLUXY0_CONTROL
390            ivartype = 21            ivartype = 21
# Line 428  C     place holder of obsolete variable Line 419  C     place holder of obsolete variable
419            write(weighttype(1:80),'(a)') "wedtaux"            write(weighttype(1:80),'(a)') "wedtaux"
420            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
421       &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",       &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",
422       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wedtaux, lxxadxx, mythid)
423  #endif  #endif
424    
425  #ifdef ALLOW_EDTAUY_CONTROL  #ifdef ALLOW_EDTAUY_CONTROL
# Line 437  C     place holder of obsolete variable Line 428  C     place holder of obsolete variable
428            write(weighttype(1:80),'(a)') "wedtauy"            write(weighttype(1:80),'(a)') "wedtauy"
429            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
430       &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS",       &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS",
431       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wedtauy, lxxadxx, mythid)
432  #endif  #endif
433    
434  #ifdef ALLOW_UVEL0_CONTROL  #ifdef ALLOW_UVEL0_CONTROL
# Line 503  C     place holder of obsolete variable Line 494  C     place holder of obsolete variable
494       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
495  #endif  #endif
496    
497    #ifdef ALLOW_SWDOWN_CONTROL
498              ivartype = 34
499              write(weighttype(1:80),'(80a)') ' '
500              write(weighttype(1:80),'(a)') "wswdown"
501              call ctrl_set_pack_xy(
502         &         cunit, ivartype, fname_swdown(ictrlgrad), "maskCtrlC",
503         &         weighttype, lxxadxx, mythid)
504    #endif
505    
506            close ( cunit )            close ( cunit )
507    
508          _END_MASTER( mythid )          _END_MASTER( mythid )
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22