/[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.20 by heimbach, Tue Apr 12 22:22:21 2005 UTC revision 1.21 by heimbach, Thu Jul 28 13:47:49 2005 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_uwind_file, fname_uwind, mythid)        call ctrl_set_fname(xx_uwind_file, fname_uwind, mythid)
117        call ctrl_set_fname(xx_vwind_file, fname_vwind, mythid)        call ctrl_set_fname(xx_vwind_file, fname_vwind, mythid)
118        call ctrl_set_fname(xx_obcsn_file, fname_obcsn, mythid)        call ctrl_set_fname(xx_obcsn_file, fname_obcsn, mythid)
# Line 351  C     place holder of obsolete variable Line 352  C     place holder of obsolete variable
352       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
353  #endif  #endif
354    
355  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_PRECIP_CONTROL
356            ivartype = 17            ivartype = 17
357            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
358            write(weighttype(1:80),'(a)') "wtr1"            write(weighttype(1:80),'(a)') "wprecip"
359            call ctrl_set_pack_xyz(            call ctrl_set_pack_xy(
360       &         cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_precip(ictrlgrad), "maskCtrlC",
361       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
362  #endif  #endif
363    
364  #ifdef ALLOW_SST0_CONTROL  #ifdef ALLOW_SST0_CONTROL
# Line 483  C     place holder of obsolete variable Line 484  C     place holder of obsolete variable
484       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
485  #endif  #endif
486    
487    #ifdef ALLOW_TR10_CONTROL
488              ivartype = 32
489              write(weighttype(1:80),'(80a)') ' '
490              write(weighttype(1:80),'(a)') "wtr1"
491              call ctrl_set_pack_xyz(
492         &         cunit, ivartype, fname_tr1(ictrlgrad), "maskCtrlC",
493         &         weighttype, wunit, lxxadxx, mythid)
494    #endif
495    
496            close ( cunit )            close ( cunit )
497    
498          _END_MASTER( mythid )          _END_MASTER( mythid )
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22