/[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.21 by heimbach, Thu Jul 28 13:47:49 2005 UTC revision 1.25 by heimbach, Wed Sep 7 02:45:12 2005 UTC
# Line 113  c--   Assign file names. Line 113  c--   Assign file names.
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)        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_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 222  C     place holder of obsolete variable Line 224  C     place holder of obsolete variable
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 232  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 242  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 252  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 352  C     place holder of obsolete variable Line 350  C     place holder of obsolete variable
350       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
351  #endif  #endif
352    
353  #ifdef ALLOW_PRECIP_CONTROL  #ifdef ALLOW_TR10_CONTROL
354            ivartype = 17            ivartype = 17
355            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
356            write(weighttype(1:80),'(a)') "wprecip"            write(weighttype(1:80),'(a)') "wtr1"
357            call ctrl_set_pack_xy(            call ctrl_set_pack_xyz(
358       &         cunit, ivartype, fname_precip(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC",
359       &         weighttype, 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)
# Line 484  C     place holder of obsolete variable Line 482  C     place holder of obsolete variable
482       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
483  #endif  #endif
484    
485  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_PRECIP_CONTROL
486            ivartype = 32            ivartype = 32
487            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
488            write(weighttype(1:80),'(a)') "wtr1"            write(weighttype(1:80),'(a)') "wprecip"
489            call ctrl_set_pack_xyz(            call ctrl_set_pack_xy(
490       &         cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_precip(ictrlgrad), "maskCtrlC",
491       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
492    #endif
493    
494    #ifdef ALLOW_SWFLUX_CONTROL
495              ivartype = 33
496              write(weighttype(1:80),'(80a)') ' '
497              write(weighttype(1:80),'(a)') "wswflux"
498              call ctrl_set_pack_xy(
499         &         cunit, ivartype, fname_swflux(ictrlgrad), "maskCtrlC",
500         &         weighttype, lxxadxx, mythid)
501    #endif
502    
503    #ifdef ALLOW_SWDOWN_CONTROL
504              ivartype = 34
505              write(weighttype(1:80),'(80a)') ' '
506              write(weighttype(1:80),'(a)') "wswdown"
507              call ctrl_set_pack_xy(
508         &         cunit, ivartype, fname_swdown(ictrlgrad), "maskCtrlC",
509         &         weighttype, lxxadxx, mythid)
510  #endif  #endif
511    
512            close ( cunit )            close ( cunit )
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22