/[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.6 by edhill, Fri Aug 6 21:12:14 2004 UTC revision 1.7 by molod, Wed Sep 29 22:23:29 2004 UTC
# Line 35  C     !LOCAL VARIABLES: Line 35  C     !LOCAL VARIABLES:
35       &     fizhi_mnc_write_pickup, fizhi_mnc_read_pickup       &     fizhi_mnc_write_pickup, fizhi_mnc_read_pickup
36    
37  C     Set defaults  C     Set defaults
38        fizhi_mdsio_read_pickup = .FALSE.        fizhi_mdsio_read_pickup = .TRUE.
39        fizhi_mdsio_write_pickup = .FALSE.        fizhi_mdsio_write_pickup = .TRUE.
40        fizhi_mnc_write_pickup = .TRUE.        fizhi_mnc_write_pickup = .FALSE.
41        fizhi_mnc_read_pickup = .TRUE.        fizhi_mnc_read_pickup = .FALSE.
42    
43  C     Read Fizhi Namelist  C     Read Fizhi Namelist
44        WRITE(msgBuf,'(A)') ' FIZHI_READPARMS: opening data.fizhi'        WRITE(msgBuf,'(A)') ' FIZHI_READPARMS: opening data.fizhi'
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22