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

Diff of /MITgcm/pkg/ctrl/ctrl_set_unpack_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 133  c--   Only the master thread will do I/O Line 135  c--   Only the master thread will do I/O
135           write(cfile3(1:80),'(80a)') ' '           write(cfile3(1:80),'(80a)') ' '
136           if ( lxxadxx ) then           if ( lxxadxx ) then
137              write(cfile2(1:80),'(a,I2.2,a,I4.4,a)')              write(cfile2(1:80),'(a,I2.2,a,I4.4,a)')
138       &           'diag_unpack_nondim_ctrl_',       &           'diag_unpack_nondim_ctrl_',
139       &           ivartype, '_', optimcycle, '.bin'       &           ivartype, '_', optimcycle, '.bin'
140              write(cfile3(1:80),'(a,I2.2,a,I4.4,a)')              write(cfile3(1:80),'(a,I2.2,a,I4.4,a)')
141       &           'diag_unpack_dimens_ctrl_',       &           'diag_unpack_dimens_ctrl_',
142       &           ivartype, '_', optimcycle, '.bin'       &           ivartype, '_', optimcycle, '.bin'
143           else           else
144              write(cfile2(1:80),'(a,I2.2,a,I4.4,a)')              write(cfile2(1:80),'(a,I2.2,a,I4.4,a)')
145       &           'diag_unpack_nondim_grad_',       &           'diag_unpack_nondim_grad_',
146       &           ivartype, '_', optimcycle, '.bin'       &           ivartype, '_', optimcycle, '.bin'
147              write(cfile3(1:80),'(a,I2.2,a,I4.4,a)')              write(cfile3(1:80),'(a,I2.2,a,I4.4,a)')
148       &           'diag_unpack_dimens_grad_',       &           'diag_unpack_dimens_grad_',
149       &           ivartype, '_', optimcycle, '.bin'       &           ivartype, '_', optimcycle, '.bin'
150           endif           endif
151    
# Line 166  c--   Only the master thread will do I/O Line 168  c--   Only the master thread will do I/O
168       &     Nr, weightfld3d, 1, mythid)       &     Nr, weightfld3d, 1, mythid)
169  #endif  #endif
170    
171        call MDSREADFIELD_3D_GL(        call MDSREADFIELD_3D_GL(
172       &     masktype, ctrlprec, 'RL',       &     masktype, ctrlprec, 'RL',
173       &     Nr, globmsk, 1, mythid)       &     Nr, globmsk, 1, mythid)
174    
# Line 224  cph( Line 226  cph(
226  cph)  cph)
227  #ifdef ALLOW_ADMTLM  #ifdef ALLOW_ADMTLM
228                       nveccount = nveccount + 1                       nveccount = nveccount + 1
229                       globfld3d(i,bi,ip,j,bj,jp,k) =                       globfld3d(i,bi,ip,j,bj,jp,k) =
230       &                 phtmpadmtlm(nveccount)       &                 phtmpadmtlm(nveccount)
231  cph(  cph(
232                       globfldtmp2(i,bi,ip,j,bj,jp) =                       globfldtmp2(i,bi,ip,j,bj,jp) =
233       &                 phtmpadmtlm(nveccount)       &                 phtmpadmtlm(nveccount)
234  cph)  cph)
235  #endif  #endif
# Line 272  c Line 274  c
274              endif              endif
275  c  c
276           enddo           enddo
277                
278           call MDSWRITEFIELD_3D_GL( fname, ctrlprec, 'RL',           call MDSWRITEFIELD_3D_GL( fname, ctrlprec, 'RL',
279       &                             Nr, globfld3d,       &                             Nr, globfld3d,
280       &                             irec,  optimcycle, mythid)       &                             irec,  optimcycle, mythid)
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22