/[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.29 by heimbach, Fri Oct 27 05:16:54 2006 UTC revision 1.30 by heimbach, Thu Jun 21 04:06:21 2007 UTC
# Line 144  c--   Assign file names. Line 144  c--   Assign file names.
144        call ctrl_set_fname(xx_etan_file, fname_etan, mythid)        call ctrl_set_fname(xx_etan_file, fname_etan, mythid)
145        call ctrl_set_fname(xx_relaxsst_file, fname_relaxsst, mythid)        call ctrl_set_fname(xx_relaxsst_file, fname_relaxsst, mythid)
146        call ctrl_set_fname(xx_relaxsss_file, fname_relaxsss, mythid)        call ctrl_set_fname(xx_relaxsss_file, fname_relaxsss, mythid)
147          call ctrl_set_fname(xx_siarea_file, fname_siarea, mythid)
148          call ctrl_set_fname(xx_siheff_file, fname_siheff, mythid)
149          call ctrl_set_fname(xx_sihsnow_file, fname_sihsnow, mythid)
150    
151  c--   Only the master thread will do I/O.  c--   Only the master thread will do I/O.
152        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
# Line 564  C     place holder of obsolete variable Line 567  C     place holder of obsolete variable
567       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
568  #endif  #endif
569    
570    #ifdef ALLOW_SIAREA_CONTROL
571              ivartype = 41
572              write(weighttype(1:80),'(80a)') ' '
573              write(weighttype(1:80),'(a)') "wunit"
574              call ctrl_set_pack_xy(
575         &         cunit, ivartype, fname_siarea(ictrlgrad),
576         &         "maskCtrlC", weighttype, lxxadxx, mythid)
577    #endif
578    
579    #ifdef ALLOW_SIHEFF_CONTROL
580              ivartype = 42
581              write(weighttype(1:80),'(80a)') ' '
582              write(weighttype(1:80),'(a)') "wunit"
583              call ctrl_set_pack_xy(
584         &         cunit, ivartype, fname_siheff(ictrlgrad),
585         &         "maskCtrlC", weighttype, lxxadxx, mythid)
586    #endif
587    
588    #ifdef ALLOW_SIHSNOW_CONTROL
589              ivartype = 43
590              write(weighttype(1:80),'(80a)') ' '
591              write(weighttype(1:80),'(a)') "wunit"
592              call ctrl_set_pack_xy(
593         &         cunit, ivartype, fname_sihsnow(ictrlgrad),
594         &         "maskCtrlC", weighttype, lxxadxx, mythid)
595    #endif
596    
597            close ( cunit )            close ( cunit )
598    
599          _END_MASTER( mythid )          _END_MASTER( mythid )
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22