/[MITgcm]/MITgcm/pkg/fizhi/fizhi_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_readparms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

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