/[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.12 by heimbach, Thu Jun 16 15:31:50 2005 UTC revision 1.13 by heimbach, Tue Nov 1 04:09:46 2005 UTC
# Line 166  c--   Only the master thread will do I/O Line 166  c--   Only the master thread will do I/O
166           call MDSREADFIELD_3D_GL( fname, ctrlprec, 'RL',           call MDSREADFIELD_3D_GL( fname, ctrlprec, 'RL',
167       &        Nr, globfld3d, irec, mythid)       &        Nr, globfld3d, irec, mythid)
168    
169    #ifndef ALLOW_ADMTLM
170           write(cunit) ncvarindex(ivartype)           write(cunit) ncvarindex(ivartype)
171           write(cunit) 1           write(cunit) 1
172           write(cunit) 1           write(cunit) 1
173    #endif
174           do k = 1, nr           do k = 1, nr
175           irectrue = (irec-1)*nr + k           irectrue = (irec-1)*nr + k
176              if ( doZscalePack ) then              if ( doZscalePack ) then
# Line 214  cph) Line 216  cph)
216  #else /* ALLOW_NONDIMENSIONAL_CONTROL_IO undef */  #else /* ALLOW_NONDIMENSIONAL_CONTROL_IO undef */
217                       cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)                       cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
218  #endif /* ALLOW_NONDIMENSIONAL_CONTROL_IO */  #endif /* ALLOW_NONDIMENSIONAL_CONTROL_IO */
219    #ifdef ALLOW_ADMTLM
220                         nveccount = nveccount + 1
221                         phtmpadmtlm(nveccount) = cbuff(cbuffindex)
222    #endif
223                    endif                    endif
224                   enddo                   enddo
225                  enddo                  enddo
# Line 223  cph) Line 229  cph)
229              enddo              enddo
230  c           --> check cbuffindex.  c           --> check cbuffindex.
231              if ( cbuffindex .gt. 0) then              if ( cbuffindex .gt. 0) then
232    #ifndef ALLOW_ADMTLM
233                 write(cunit) cbuffindex                 write(cunit) cbuffindex
234                 write(cunit) k                 write(cunit) k
235    #endif
236                 write(cunit) (cbuff(ii), ii=1,cbuffindex)                 write(cunit) (cbuff(ii), ii=1,cbuffindex)
237              endif              endif
238  c  c
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22