pkg/mnc/mnc_var.F

C $Header:  $
C $Name:  $
      
#include "MNC_OPTIONS.h"
      
C==================================================================

      SUBROUTINE MNC_VAR_INIT_DBL( 
     I     myThid, 
     I     fname, 
     I     gname, 
     I     vname, 
     I     fillval )

      implicit none
#include "mnc_common.h"
#include "EEPARAMS.h"

C     Arguments
      integer myThid
      character*(*) fname
      character*(*) gname
      character*(*) vname
      _RL fillval

C     Functions
      integer ILNBLNK

C     Local Variables
      integer i, ind, fid
      character*(MAX_LEN_MBUF) msgbuf

C     Is the file open?
      CALL MNC_GET_IND(myThid, MNC_MAX_ID, fname, mnc_f_names, ind)
      IF ( ind .GT. 0 ) THEN
        write(msgbuf,'(3a)') 'MNC ERROR: file ''',
     &       fname, ''' must be opened first'
        CALL print_error( msgbuf, mythid )
        stop 'ABNORMAL END: S/R MNC_FILE_ADD_ATTR_INT'
      ENDIF
      fid = mnc_f_info(ind,2)

      END

1	C $Header: $
2	C $Name: $
3
4	#include "MNC_OPTIONS.h"
5
6	C==================================================================
7
8	SUBROUTINE MNC_VAR_INIT_DBL(
9	I myThid,
10	I fname,
11	I gname,
12	I vname,
13	I fillval )
14
15	implicit none
16	#include "mnc_common.h"
17	#include "EEPARAMS.h"
18
19	C Arguments
20	integer myThid
21	character() fname
22	character() gname
23	character() vname
24	_RL fillval
25
26	C Functions
27	integer ILNBLNK
28
29	C Local Variables
30	integer i, ind, fid
31	character*(MAX_LEN_MBUF) msgbuf
32
33	C Is the file open?
34	CALL MNC_GET_IND(myThid, MNC_MAX_ID, fname, mnc_f_names, ind)
35	IF ( ind .GT. 0 ) THEN
36	write(msgbuf,'(3a)') 'MNC ERROR: file ''',
37	& fname, ''' must be opened first'
38	CALL print_error( msgbuf, mythid )
39	stop 'ABNORMAL END: S/R MNC_FILE_ADD_ATTR_INT'
40	ENDIF
41	fid = mnc_f_info(ind,2)
42
43	END
44