/[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.8 by molod, Tue Mar 1 18:56:21 2005 UTC revision 1.13 by molod, Thu Jun 2 22:56:52 2005 UTC
# Line 19  C     !USES: Line 19  C     !USES:
19  #include "chronos.h"  #include "chronos.h"
20  #include "fizhi_io_comms.h"  #include "fizhi_io_comms.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
22    #include "SIZE.h"
23    #include "PARAMS.h"
24    
25  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
26        integer myThid        integer myThid
# Line 26  CEOP Line 28  CEOP
28    
29  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
30        character*(MAX_LEN_MBUF) msgBuf        character*(MAX_LEN_MBUF) msgBuf
31        integer ku        integer ku, ku2
32        integer nymdbegin, nhmsbegin        integer nymdbegin, nhmsbegin
33        integer nymdcurrent, nhmscurrent        integer nymdcurrent, nhmscurrent
34          real runlength
35          integer  nincr
36          integer mmdd,hhmmss,nsecf2
37    
38        namelist / fizhi_list /        namelist / fizhi_list /
39       &     nymdbegin, nhmsbegin,       .     nymdbegin, nhmsbegin,
40       &     fizhi_mnc_write_pickup, fizhi_mnc_read_pickup       .     fizhi_mnc_write_pickup, fizhi_mnc_read_pickup,
41         .     runlength
42    
43  C     Set defaults  C     Set defaults
44        fizhi_mdsio_read_pickup = .TRUE.        fizhi_mdsio_read_pickup = .TRUE.
45        fizhi_mdsio_write_pickup = .TRUE.        fizhi_mdsio_write_pickup = .TRUE.
46        fizhi_mnc_write_pickup = .FALSE.        fizhi_mnc_write_pickup = .FALSE.
47        fizhi_mnc_read_pickup = .FALSE.        fizhi_mnc_read_pickup = .FALSE.
48          runlength = 0.0
49    
50  C     Read Fizhi Namelist  C     Read Fizhi Namelist
51        WRITE(msgBuf,'(A)') ' FIZHI_READPARMS: opening data.fizhi'        WRITE(msgBuf,'(A)') ' FIZHI_READPARMS: opening data.fizhi'
# Line 50  C     Read Fizhi Namelist Line 57  C     Read Fizhi Namelist
57        close (ku)        close (ku)
58    
59  C     Read Supplemental Ascii File with Current Time Info  C     Read Supplemental Ascii File with Current Time Info
60        open(10,file='datetime0',form='formatted')        CALL MDSFINDUNIT( ku2, myThid )
61        read(10,1000)nymdcurrent,nhmscurrent        open(ku2,file='datetime0',form='formatted')
62        close (10)        read(ku2,1000)nymdcurrent,nhmscurrent
63          close (ku2)
64   1000 format(i8,2x,i6)   1000 format(i8,2x,i6)
65    
66    C Change the length of the model run, ie, change ntimesteps
67    C  if runlength has been set in the fizhi namelist
68    
69          if(runlength.gt.0.) then
70           mmdd = int(runlength)
71           hhmmss = int((runlength - int(runlength))*1.e6)
72           nincr = nsecf2(hhmmss,mmdd,nymdcurrent)
73           ntimesteps = int(nincr/deltat)
74           endTime = startTime + deltat*float(ntimeSteps)
75           WRITE(msgBuf,'(A,I10)')
76         .         ' CHANGING NUMBER OF MODEL TIMESTEPS TO',ntimesteps
77           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_RIGHT,1)
78           WRITE(msgBuf,'(A,F12.2)') ' CHANGING END TIME TO',endtime
79           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_RIGHT,1)
80          endif
81    
82  C     Fill chronos Common Block with Namelist and Other File Info  C     Fill chronos Common Block with Namelist and Other File Info
83        nymd0 = nymdbegin        nymd0 = nymdbegin
84        nhms0 = nhmsbegin        nhms0 = nhmsbegin
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22