/[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.23 by jmc, Thu Dec 23 02:43:43 2010 UTC revision 1.24 by mlosch, Thu May 5 09:22:57 2011 UTC
# Line 180  c--   Only the master thread will do I/O Line 180  c--   Only the master thread will do I/O
180       &        then       &        then
181              print *, 'ctrl_set_unpack_xyz:WARNING: wrong ncvarindex ',              print *, 'ctrl_set_unpack_xyz:WARNING: wrong ncvarindex ',
182       &           filencvarindex(ivartype), ncvarindex(ivartype)       &           filencvarindex(ivartype), ncvarindex(ivartype)
183              STOP 'in S/R ctrl_unpack'              STOP 'in S/R ctrl_set_unpack_xyz'
184           endif           endif
185           read(cunit) filej           read(cunit) filej
186           read(cunit) filei           read(cunit) filei
# Line 199  c--   Only the master thread will do I/O Line 199  c--   Only the master thread will do I/O
199                 if (filencbuffindex .NE. cbuffindex) then                 if (filencbuffindex .NE. cbuffindex) then
200                    print *, 'WARNING: wrong cbuffindex ',                    print *, 'WARNING: wrong cbuffindex ',
201       &                 filencbuffindex, cbuffindex       &                 filencbuffindex, cbuffindex
202                    STOP 'in S/R ctrl_unpack'                    STOP 'in S/R ctrl_set_unpack_xyz'
203                 endif                 endif
204                 read(cunit) filek                 read(cunit) filek
205                 if (filek .NE. k) then                 if (filek .NE. k) then
206                    print *, 'WARNING: wrong k ',                    print *, 'WARNING: wrong k ',
207       &                 filek, k       &                 filek, k
208                    STOP 'in S/R ctrl_unpack'                    STOP 'in S/R ctrl_set_unpack_xyz'
209                 endif                 endif
210  cph#endif /* ALLOW_ADMTLM */  cph#endif /* ALLOW_ADMTLM */
211                 read(cunit) (cbuff(ii), ii=1,cbuffindex)                 read(cunit) (cbuff(ii), ii=1,cbuffindex)
# Line 368  c-- 2.1: array <- buffer <- global buffe Line 368  c-- 2.1: array <- buffer <- global buffe
368       &        then       &        then
369              print *, 'ctrl_set_unpack_xyz:WARNING: wrong ncvarindex ',              print *, 'ctrl_set_unpack_xyz:WARNING: wrong ncvarindex ',
370       &           filencvarindex(ivartype), ncvarindex(ivartype)       &           filencvarindex(ivartype), ncvarindex(ivartype)
371              STOP 'in S/R ctrl_unpack'              STOP 'in S/R ctrl_set_unpack_xyz'
372           endif           endif
373           read(cunit) filej           read(cunit) filej
374           read(cunit) filei           read(cunit) filei
# Line 397  c-- 2.1: array <- buffer <- global buffe Line 397  c-- 2.1: array <- buffer <- global buffe
397            if (filencbuffindex .NE. cbuffindex) then            if (filencbuffindex .NE. cbuffindex) then
398              print *, 'WARNING: wrong cbuffindex ',              print *, 'WARNING: wrong cbuffindex ',
399       &                 filencbuffindex, cbuffindex       &                 filencbuffindex, cbuffindex
400              STOP 'in S/R ctrl_unpack'              STOP 'in S/R ctrl_set_unpack_xyz'
401            endif            endif
402            if (filek .NE. k) then            if (filek .NE. k) then
403              print *, 'WARNING: wrong k ',              print *, 'WARNING: wrong k ',
404       &                 filek, k       &                 filek, k
405              STOP 'in S/R ctrl_unpack'              STOP 'in S/R ctrl_set_unpack_xyz'
406            endif            endif
407            read(cunit) (cbuff(ii), ii=1,cbuffindex)            read(cunit) (cbuff(ii), ii=1,cbuffindex)
408          endif          endif
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22