/[MITgcm]/MITgcm/pkg/profiles/profiles_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/profiles/profiles_init_fixed.F

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

revision 1.8 by heimbach, Thu Nov 30 23:22:06 2006 UTC revision 1.9 by heimbach, Fri Dec 1 00:00:47 2006 UTC
# Line 103  cgf      err = NF_OPEN(filename, 0, fid) Line 103  cgf      err = NF_OPEN(filename, 0, fid)
103        err = NF_INQ_DIMID(fid,'iDEPTH', dimid )        err = NF_INQ_DIMID(fid,'iDEPTH', dimid )
104        if (err.NE.NF_NOERR) then        if (err.NE.NF_NOERR) then
105          err = NF_INQ_DIMID(fid,'Z', dimid )          err = NF_INQ_DIMID(fid,'Z', dimid )
       else  
         STOP 'ERROR reading profile file in profiles_init_fixed'  
106        endif        endif
107        err = NF_INQ_DIMLEN(fid, dimid, ProfDepthNo(num_file,bi,bj) )        err = NF_INQ_DIMLEN(fid, dimid, ProfDepthNo(num_file,bi,bj) )
108        write(msgbuf,'(a,X,4i9)')        write(msgbuf,'(a,X,4i9)')
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22