pkg/mnc/mnc_cw_missingvals.F

21c48a3add Ed H*0001 #include "MNC_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C     !ROUTINE: MNC_CW_VATTR_MISSING
                0006
                0007 C     !INTERFACE:
                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 C     !DESCRIPTION:
                0015 C     Set missing values to be associated with a CW variable name.
                0016
                0017 C     !USES:
                0018       implicit none
07155994b8 Mart*0019 #include "MNC_COMMON.h"
21c48a3add Ed H*0020 #include "EEPARAMS.h"
                0021
                0022 C     !INPUT PARAMETERS:
                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 CEOP
                0029
                0030 C     !LOCAL VARIABLES:
                0031       integer nvf,nvl, indv, ii
                0032       character*(MAX_LEN_MBUF) msgbuf
                0033
                0034 C     Functions
                0035       integer IFNBLNK, ILNBLNK
                0036
                0037       nvf = IFNBLNK(vname)
                0038       nvl = ILNBLNK(vname)
                0039
                0040 C     Check that vname is defined
                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 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|