/[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.30 by heimbach, Thu Jun 21 04:06:21 2007 UTC revision 1.31 by dfer, Tue Jan 15 19:56:27 2008 UTC
# Line 147  c--   Assign file names. Line 147  c--   Assign file names.
147        call ctrl_set_fname(xx_siarea_file, fname_siarea, mythid)        call ctrl_set_fname(xx_siarea_file, fname_siarea, mythid)
148        call ctrl_set_fname(xx_siheff_file, fname_siheff, mythid)        call ctrl_set_fname(xx_siheff_file, fname_siheff, mythid)
149        call ctrl_set_fname(xx_sihsnow_file, fname_sihsnow, mythid)        call ctrl_set_fname(xx_sihsnow_file, fname_sihsnow, mythid)
150    cHFLUXM_CONTROL
151          call ctrl_set_fname(xx_hfluxm_file, fname_hfluxm, mythid)
152    cHFLUXM_CONTROL
153    
154  c--   Only the master thread will do I/O.  c--   Only the master thread will do I/O.
155        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
# Line 423  C     place holder of obsolete variable Line 426  C     place holder of obsolete variable
426       &      weighttype, lxxadxx, mythid)       &      weighttype, lxxadxx, mythid)
427  #endif  #endif
428    
429    #ifdef ALLOW_HFLUXM_CONTROL
430              ivartype = 24
431              write(weighttype(1:80),'(80a)') ' '
432              write(weighttype(1:80),'(a)') "whfluxm"
433              call ctrl_set_pack_xy(
434         &         cunit, ivartype, fname_hfluxm(ictrlgrad), "maskCtrlC",
435         &         weighttype, lxxadxx, mythid)
436    #endif
437    
438  #ifdef ALLOW_EDTAUX_CONTROL  #ifdef ALLOW_EDTAUX_CONTROL
439            ivartype = 25            ivartype = 25
440            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22