/[MITgcm]/MITgcm/pkg/mnc/mnc_var.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_var.F

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

revision 1.6 by edhill, Thu Jan 8 07:34:01 2004 UTC revision 1.7 by edhill, Thu Jan 15 04:31:24 2004 UTC
# Line 105  C     Check that the file is open Line 105  C     Check that the file is open
105          write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname,          write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname,
106       &       ''' must be opened first'       &       ''' must be opened first'
107          CALL print_error(msgbuf, mythid)          CALL print_error(msgbuf, mythid)
108          stop 'ABNORMAL END: S/R MNC_VAR_INIT_DBL'          stop 'ABNORMAL END: S/R MNC_VAR_INIT_ANY'
109        ENDIF        ENDIF
110        fid = mnc_f_info(indf,2)        fid = mnc_f_info(indf,2)
111    
# Line 115  C     Get the grid information Line 115  C     Get the grid information
115          write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:lenf),          write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:lenf),
116       &       ''' contains NO grids'       &       ''' contains NO grids'
117          CALL print_error(msgbuf, mythid)          CALL print_error(msgbuf, mythid)
118          stop 'ABNORMAL END: S/R MNC_VAR_INIT_DBL'          stop 'ABNORMAL END: S/R MNC_VAR_INIT_ANY'
119        ENDIF        ENDIF
120        DO i = 1,ngrid        DO i = 1,ngrid
121          j = 4 + (i-1)*3          j = 4 + (i-1)*3
# Line 137  C     Get the grid information Line 137  C     Get the grid information
137        write(msgbuf,'(5a)') 'MNC ERROR: file ''', fname(1:lenf),        write(msgbuf,'(5a)') 'MNC ERROR: file ''', fname(1:lenf),
138       &     ''' does not contain grid ''', gname(1:leng), ''''       &     ''' does not contain grid ''', gname(1:leng), ''''
139        CALL print_error(msgbuf, mythid)        CALL print_error(msgbuf, mythid)
140        stop 'ABNORMAL END: S/R MNC_VAR_INIT_DBL'        stop 'ABNORMAL END: S/R MNC_VAR_INIT_ANY'
141   10   CONTINUE   10   CONTINUE
142    
143  C     Add the variable definition  C     Add the variable definition
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22