pkg/fizhi/fizhi_readparms.F

C $Header: /u/gcmpack/MITgcm/pkg/fizhi/fizhi_readparms.F,v 1.6 2004/08/06 21:12:14 edhill Exp $
C $Name:  $

#include "FIZHI_OPTIONS.h"

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP 0
C     !ROUTINE: FIZHI_MNC_INIT

C     !INTERFACE:
      SUBROUTINE FIZHI_READPARMS( myThid )

C     !DESCRIPTION:
C     Read Fizhi Namelist and Get the Model Date and Time from File

C     !USES:
      implicit none

#include "chronos.h"
#include "fizhi_io_comms.h"
#include "EEPARAMS.h"

C     !INPUT PARAMETERS:
      integer myThid
CEOP

C     !LOCAL VARIABLES:
      character*(MAX_LEN_MBUF) msgBuf
      integer ku
      integer nymdbegin, nhmsbegin
      integer nymdcurrent, nhmscurrent

      namelist / fizhi_list / 
     &     nymdbegin, nhmsbegin,
     &     fizhi_mnc_write_pickup, fizhi_mnc_read_pickup

C     Set defaults
      fizhi_mdsio_read_pickup = .TRUE.
      fizhi_mdsio_write_pickup = .TRUE.
      fizhi_mnc_write_pickup = .FALSE.
      fizhi_mnc_read_pickup = .FALSE.

C     Read Fizhi Namelist
      WRITE(msgBuf,'(A)') ' FIZHI_READPARMS: opening data.fizhi'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_RIGHT,1)

      CALL OPEN_COPY_DATA_FILE('data.fizhi', 'FIZHI_READPARMS',
     &     ku,myThid )
      read  (ku,NML=fizhi_list)
      close (ku)

C     Read Supplemental Ascii File with Current Time Info
      open(10,file='datetime',form='formatted')
      read(10,1000)nymdcurrent,nhmscurrent
      close (10)
 1000 format(i8,2x,i6)

C     Fill chronos Common Block with Namelist and Other File Info
      nymd0 = nymdbegin
      nhms0 = nhmsbegin
      nymd = nymdcurrent
      nhms = nhmscurrent

C     Echo Date and Time Info
      _BEGIN_MASTER(myThid)
      print *, '  Begin Date ',nymd0,'   Begin Time ',nhms0
      print *, 'Current Date ',nymd,' Current Time ',nhms
      _END_MASTER(myThid)

      return
      end

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
1	molod	1.7	C $Header: /u/gcmpack/MITgcm/pkg/fizhi/fizhi_readparms.F,v 1.6 2004/08/06 21:12:14 edhill Exp $
2	molod	1.1	C $Name: $
3
4	molod	1.5	#include "FIZHI_OPTIONS.h"
5	edhill	1.6
6			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7			CBOP 0
8			C !ROUTINE: FIZHI_MNC_INIT
9
10			C !INTERFACE:
11			SUBROUTINE FIZHI_READPARMS( myThid )
12
13			C !DESCRIPTION:
14			C Read Fizhi Namelist and Get the Model Date and Time from File
15
16			C !USES:
17	molod	1.1	implicit none
18
19			#include "chronos.h"
20	edhill	1.6	#include "fizhi_io_comms.h"
21	molod	1.1	#include "EEPARAMS.h"
22
23	edhill	1.6	C !INPUT PARAMETERS:
24	molod	1.1	integer myThid
25	edhill	1.6	CEOP
26	molod	1.1
27	edhill	1.6	C !LOCAL VARIABLES:
28	molod	1.1	character*(MAX_LEN_MBUF) msgBuf
29			integer ku
30			integer nymdbegin, nhmsbegin
31			integer nymdcurrent, nhmscurrent
32
33	edhill	1.6	namelist / fizhi_list /
34			& nymdbegin, nhmsbegin,
35			& fizhi_mnc_write_pickup, fizhi_mnc_read_pickup
36
37			C Set defaults
38	molod	1.7	fizhi_mdsio_read_pickup = .TRUE.
39			fizhi_mdsio_write_pickup = .TRUE.
40			fizhi_mnc_write_pickup = .FALSE.
41			fizhi_mnc_read_pickup = .FALSE.
42	molod	1.1
43	edhill	1.6	C Read Fizhi Namelist
44	molod	1.1	WRITE(msgBuf,'(A)') ' FIZHI_READPARMS: opening data.fizhi'
45			CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_RIGHT,1)
46
47			CALL OPEN_COPY_DATA_FILE('data.fizhi', 'FIZHI_READPARMS',
48	edhill	1.6	& ku,myThid )
49	molod	1.1	read (ku,NML=fizhi_list)
50			close (ku)
51
52	edhill	1.6	C Read Supplemental Ascii File with Current Time Info
53	molod	1.4	open(10,file='datetime',form='formatted')
54	molod	1.1	read(10,1000)nymdcurrent,nhmscurrent
55	molod	1.4	close (10)
56	molod	1.1	1000 format(i8,2x,i6)
57
58	edhill	1.6	C Fill chronos Common Block with Namelist and Other File Info
59	molod	1.1	nymd0 = nymdbegin
60			nhms0 = nhmsbegin
61			nymd = nymdcurrent
62			nhms = nhmscurrent
63
64	edhill	1.6	C Echo Date and Time Info
65	molod	1.2	_BEGIN_MASTER(myThid)
66	molod	1.1	print *, ' Begin Date ',nymd0,' Begin Time ',nhms0
67			print *, 'Current Date ',nymd,' Current Time ',nhms
68			_END_MASTER(myThid)
69
70			return
71			end
72	edhill	1.6
73			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|