pkg/mnc/mnc_cw_missingvals.F

C $Header: /u/gcmpack/MITgcm/pkg/mnc/mnc_cw_missingvals.F,v 1.1 2006/02/24 20:39:10 edhill Exp $
C $Name:  $
      
#include "MNC_OPTIONS.h"
      
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP 0
C     !ROUTINE: MNC_CW_VATTR_MISSING

C     !INTERFACE:
      SUBROUTINE MNC_CW_VATTR_MISSING(
     I     vname,
     I     iflag,
     I     mv_r8,  mv_r4,  mv_int,
     I     myThid )

C     !DESCRIPTION:
C     Set missing values to be associated with a CW variable name.
      
C     !USES:
      implicit none
#include "MNC_COMMON.h"
#include "EEPARAMS.h"

C     !INPUT PARAMETERS:
      integer myThid, iflag
      character*(*) vname
      REAL*8  mv_r8(2)
      REAL*4  mv_r4(2)
      INTEGER mv_int(2)
CEOP

C     !LOCAL VARIABLES:
      integer nvf,nvl, indv, ii
      character*(MAX_LEN_MBUF) msgbuf

C     Functions
      integer IFNBLNK, ILNBLNK

      nvf = IFNBLNK(vname)
      nvl = ILNBLNK(vname)

C     Check that vname is defined
      CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid)
      IF (indv .LT. 1) THEN
        write(msgbuf,'(3a)') 'MNC_CW_VATTR_MISSING ERROR: ''',
     &       vname(nvf:nvl), ''' is not defined'
        CALL print_error(msgbuf, mythid)
        stop 'ABNORMAL END: S/R MNC_CW_VATTR_MISSING'
      ENDIF

      mnc_cw_vfmv(indv) = iflag
      DO ii = 1,2
        mnc_cw_vmvd(ii,indv) = mv_r8(ii)
        mnc_cw_vmvr(ii,indv) = mv_r4(ii)
        mnc_cw_vmvi(ii,indv) = mv_int(ii)
      ENDDO

      RETURN
      END

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
1	C $Header: /u/gcmpack/MITgcm/pkg/mnc/mnc_cw_missingvals.F,v 1.1 2006/02/24 20:39:10 edhill Exp $
2	C $Name: $
3
4	#include "MNC_OPTIONS.h"
5
6	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7	CBOP 0
8	C !ROUTINE: MNC_CW_VATTR_MISSING
9
10	C !INTERFACE:
11	SUBROUTINE MNC_CW_VATTR_MISSING(
12	I vname,
13	I iflag,
14	I mv_r8, mv_r4, mv_int,
15	I myThid )
16
17	C !DESCRIPTION:
18	C Set missing values to be associated with a CW variable name.
19
20	C !USES:
21	implicit none
22	#include "MNC_COMMON.h"
23	#include "EEPARAMS.h"
24
25	C !INPUT PARAMETERS:
26	integer myThid, iflag
27	character() vname
28	REAL*8 mv_r8(2)
29	REAL*4 mv_r4(2)
30	INTEGER mv_int(2)
31	CEOP
32
33	C !LOCAL VARIABLES:
34	integer nvf,nvl, indv, ii
35	character*(MAX_LEN_MBUF) msgbuf
36
37	C Functions
38	integer IFNBLNK, ILNBLNK
39
40	nvf = IFNBLNK(vname)
41	nvl = ILNBLNK(vname)
42
43	C Check that vname is defined
44	CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid)
45	IF (indv .LT. 1) THEN
46	write(msgbuf,'(3a)') 'MNC_CW_VATTR_MISSING ERROR: ''',
47	& vname(nvf:nvl), ''' is not defined'
48	CALL print_error(msgbuf, mythid)
49	stop 'ABNORMAL END: S/R MNC_CW_VATTR_MISSING'
50	ENDIF
51
52	mnc_cw_vfmv(indv) = iflag
53	DO ii = 1,2
54	mnc_cw_vmvd(ii,indv) = mv_r8(ii)
55	mnc_cw_vmvr(ii,indv) = mv_r4(ii)
56	mnc_cw_vmvi(ii,indv) = mv_int(ii)
57	ENDDO
58
59	RETURN
60	END
61
62	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|