/[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.9 by molod, Mon May 23 02:15:51 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 29  C     !LOCAL VARIABLES: Line 31  C     !LOCAL VARIABLES:
31        integer ku        integer ku
32        integer nymdbegin, nhmsbegin        integer nymdbegin, nhmsbegin
33        integer nymdcurrent, nhmscurrent        integer nymdcurrent, nhmscurrent
34          real runlength
35    
36        namelist / fizhi_list /        namelist / fizhi_list /
37       &     nymdbegin, nhmsbegin,       .     nymdbegin, nhmsbegin,
38       &     fizhi_mnc_write_pickup, fizhi_mnc_read_pickup       .     fizhi_mnc_write_pickup, fizhi_mnc_read_pickup,
39         .     runlength
40    
41  C     Set defaults  C     Set defaults
42        fizhi_mdsio_read_pickup = .TRUE.        fizhi_mdsio_read_pickup = .TRUE.
43        fizhi_mdsio_write_pickup = .TRUE.        fizhi_mdsio_write_pickup = .TRUE.
44        fizhi_mnc_write_pickup = .FALSE.        fizhi_mnc_write_pickup = .FALSE.
45        fizhi_mnc_read_pickup = .FALSE.        fizhi_mnc_read_pickup = .FALSE.
46          runlength = 0.0
47    
48  C     Read Fizhi Namelist  C     Read Fizhi Namelist
49        WRITE(msgBuf,'(A)') ' FIZHI_READPARMS: opening data.fizhi'        WRITE(msgBuf,'(A)') ' FIZHI_READPARMS: opening data.fizhi'
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22