/[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.14 by heimbach, Fri Jan 27 05:41:51 2006 UTC revision 1.15 by heimbach, Thu Apr 27 12:50:39 2006 UTC
# Line 204  cph               delZnorm = SQRT(delR(1 Line 204  cph               delZnorm = SQRT(delR(1
204       &                 filek, k       &                 filek, k
205                    STOP 'in S/R ctrl_unpack'                    STOP 'in S/R ctrl_unpack'
206                 endif                 endif
207  #endif /* ALLOW_ADMTLM */  cph#endif /* ALLOW_ADMTLM */
208                 read(cunit) (cbuff(ii), ii=1,cbuffindex)                 read(cunit) (cbuff(ii), ii=1,cbuffindex)
209    #endif /* ALLOW_ADMTLM */
210              endif              endif
211  c  c
212              cbuffindex = 0              cbuffindex = 0
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22