/[MITgcm]/MITgcm/pkg/ctrl/ctrl_set_pack_xyz.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_set_pack_xyz.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.18 by gforget, Tue Jun 19 03:42:30 2007 UTC revision 1.19 by jmc, Tue Oct 9 00:00:01 2007 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "CTRL_CPPOPTIONS.h"  #include "CTRL_CPPOPTIONS.h"
5    
# Line 125  c--   Only the master thread will do I/O Line 127  c--   Only the master thread will do I/O
127           write(cfile3(1:80),'(80a)') ' '           write(cfile3(1:80),'(80a)') ' '
128           if ( lxxadxx ) then           if ( lxxadxx ) then
129              write(cfile2(1:80),'(a,I2.2,a,I4.4,a)')              write(cfile2(1:80),'(a,I2.2,a,I4.4,a)')
130       &           'diag_pack_nonout_ctrl_',       &           'diag_pack_nonout_ctrl_',
131       &           ivartype, '_', optimcycle, '.bin'       &           ivartype, '_', optimcycle, '.bin'
132              write(cfile3(1:80),'(a,I2.2,a,I4.4,a)')              write(cfile3(1:80),'(a,I2.2,a,I4.4,a)')
133       &           'diag_pack_dimout_ctrl_',       &           'diag_pack_dimout_ctrl_',
134       &           ivartype, '_', optimcycle, '.bin'       &           ivartype, '_', optimcycle, '.bin'
135           else           else
136              write(cfile2(1:80),'(a,I2.2,a,I4.4,a)')              write(cfile2(1:80),'(a,I2.2,a,I4.4,a)')
137       &           'diag_pack_nonout_grad_',       &           'diag_pack_nonout_grad_',
138       &           ivartype, '_', optimcycle, '.bin'       &           ivartype, '_', optimcycle, '.bin'
139              write(cfile3(1:80),'(a,I2.2,a,I4.4,a)')              write(cfile3(1:80),'(a,I2.2,a,I4.4,a)')
140       &           'diag_pack_dimout_grad_',       &           'diag_pack_dimout_grad_',
141       &           ivartype, '_', optimcycle, '.bin'       &           ivartype, '_', optimcycle, '.bin'
142           endif           endif
143    
# Line 158  c--   Only the master thread will do I/O Line 160  c--   Only the master thread will do I/O
160       &     Nr, weightfld3d, 1, mythid)       &     Nr, weightfld3d, 1, mythid)
161  #endif  #endif
162    
163        call MDSREADFIELD_3D_GL(        call MDSREADFIELD_3D_GL(
164       &     masktype, ctrlprec, 'RL',       &     masktype, ctrlprec, 'RL',
165       &     Nr, globmsk, 1, mythid)       &     Nr, globmsk, 1, mythid)
166    
# Line 255  c     -- end of irec loop -- Line 257  c     -- end of irec loop --
257           close ( cunit2 )           close ( cunit2 )
258           close ( cunit3 )           close ( cunit3 )
259        endif        endif
260    
261        _END_MASTER( mythid )        _END_MASTER( mythid )
262    
263  #endif  #endif
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22