/[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.37 by heimbach, Sun Mar 13 22:25:56 2011 UTC revision 1.38 by mlosch, Tue May 10 07:30:15 2011 UTC
# Line 151  c--   Assign file names. Line 151  c--   Assign file names.
151  cHFLUXM_CONTROL  cHFLUXM_CONTROL
152        call ctrl_set_fname(xx_hfluxm_file, fname_hfluxm, mythid)        call ctrl_set_fname(xx_hfluxm_file, fname_hfluxm, mythid)
153  cHFLUXM_CONTROL  cHFLUXM_CONTROL
154          call ctrl_set_fname(xx_shifwflx_file, fname_shifwflx, mythid)
155    
156  c--   Only the master thread will do I/O.  c--   Only the master thread will do I/O.
157        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
# Line 202  C     place holder of obsolete variable Line 203  C     place holder of obsolete variable
203  #ifdef ALLOW_CTRL_WETV  #ifdef ALLOW_CTRL_WETV
204            write(cunit) (nWetvGlobal(k), k=1,nr)            write(cunit) (nWetvGlobal(k), k=1,nr)
205  #endif  #endif
206    #ifdef ALLOW_SHIFWFLX_CONTROL
207              write(cunit) (nWetiGlobal(k), k=1,nr)
208    c          write(cunit) nWetiGlobal(1)
209    #endif
210    
211  #ifdef ALLOW_OBCSN_CONTROL  #ifdef ALLOW_OBCSN_CONTROL
212            write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)            write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
# Line 631  C     place holder of obsolete variable Line 636  C     place holder of obsolete variable
636       &         weighttype, wkapredi, lxxadxx, mythid)       &         weighttype, wkapredi, lxxadxx, mythid)
637  #endif  #endif
638    
639    #ifdef ALLOW_SHIFWFLX_CONTROL
640              ivartype = 45
641              write(weighttype(1:80),'(80a)') ' '
642              write(weighttype(1:80),'(a)') "wshifwflx"
643              call ctrl_set_pack_xy(
644         &         cunit, ivartype, fname_shifwflx(ictrlgrad),
645         &         "maskCtrlI", weighttype, lxxadxx, mythid)
646    #endif
647    
648  #ifdef ALLOW_PACKUNPACK_METHOD2  #ifdef ALLOW_PACKUNPACK_METHOD2
649        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
650        IF ( myProcId .eq. 0 ) THEN        IF ( myProcId .eq. 0 ) THEN
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22