/[MITgcm]/MITgcm/pkg/mnc/mnc_cw_readwrite.template
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cw_readwrite.template

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

revision 1.6 by edhill, Mon Mar 8 21:15:49 2004 UTC revision 1.7 by edhill, Tue Mar 9 14:43:16 2004 UTC
# Line 352  C     Check that the Variable Type exist Line 352  C     Check that the Variable Type exist
352        nvf = IFNBLNK(vtype)        nvf = IFNBLNK(vtype)
353        nvl = ILNBLNK(vtype)        nvl = ILNBLNK(vtype)
354        CALL MNC_GET_IND(myThid, MNC_MAX_ID, vtype, mnc_cw_vname, ind_vt)        CALL MNC_GET_IND(myThid, MNC_MAX_ID, vtype, mnc_cw_vname, ind_vt)
355        IF (indv .LT. 1) THEN        IF (ind_vt .LT. 1) THEN
356          write(msgbuf,'(3a)') 'MNC_CW_RX_R_YY ERROR: vtype ''',          write(msgbuf,'(3a)') 'MNC_CW_RX_R_YY ERROR: vtype ''',
357       &       vtype(nvf:nvl), ''' is not defined'       &       vtype(nvf:nvl), ''' is not defined'
358          CALL print_error(msgbuf, mythid)          CALL print_error(msgbuf, mythid)
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22