File indexing completed on 2018-03-02 18:41:59 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
21c48a3add Ed H*0001 #include "MNC_OPTIONS.h"
0002
0003
0004
0005
0006
0007
0008 SUBROUTINE MNC_CW_VATTR_MISSING(
0009 I vname,
0010 I iflag,
0011 I mv_r8, mv_r4, mv_int,
0012 I myThid )
0013
0014
0015
0016
0017
0018 implicit none
07155994b8 Mart*0019 #include "MNC_COMMON.h"
21c48a3add Ed H*0020 #include "EEPARAMS.h"
0021
0022
0023 integer myThid, iflag
0024 character*(*) vname
0025 REAL*8 mv_r8(2)
0026 REAL*4 mv_r4(2)
0027 INTEGER mv_int(2)
0028
0029
0030
0031 integer nvf,nvl, indv, ii
0032 character*(MAX_LEN_MBUF) msgbuf
0033
0034
0035 integer IFNBLNK, ILNBLNK
0036
0037 nvf = IFNBLNK(vname)
0038 nvl = ILNBLNK(vname)
0039
0040
0041 CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid)
0042 IF (indv .LT. 1) THEN
0043 write(msgbuf,'(3a)') 'MNC_CW_VATTR_MISSING ERROR: ''',
0044 & vname(nvf:nvl), ''' is not defined'
0045 CALL print_error(msgbuf, mythid)
0046 stop 'ABNORMAL END: S/R MNC_CW_VATTR_MISSING'
0047 ENDIF
0048
0049 mnc_cw_vfmv(indv) = iflag
0050 DO ii = 1,2
0051 mnc_cw_vmvd(ii,indv) = mv_r8(ii)
0052 mnc_cw_vmvr(ii,indv) = mv_r4(ii)
0053 mnc_cw_vmvi(ii,indv) = mv_int(ii)
0054 ENDDO
0055
0056 RETURN
0057 END
0058
0059