/[MITgcm]/MITgcm/pkg/mnc/mnc_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_readparms.F

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

revision 1.19 by jmc, Sun Feb 13 17:39:32 2005 UTC revision 1.20 by edhill, Sun Apr 3 05:16:43 2005 UTC
# Line 38  C     !LOCAL VARIABLES: Line 38  C     !LOCAL VARIABLES:
38       &     mnc_echo_gvtypes,       &     mnc_echo_gvtypes,
39       &     pickup_write_mnc, pickup_read_mnc,       &     pickup_write_mnc, pickup_read_mnc,
40       &     timeave_mnc, snapshot_mnc, monitor_mnc, autodiff_mnc,       &     timeave_mnc, snapshot_mnc, monitor_mnc, autodiff_mnc,
41       &     readgrid_mnc,       &     readgrid_mnc, seaice_mnc,
42       &     mnc_outdir_str, mnc_indir_str, mnc_max_fsize       &     mnc_outdir_str, mnc_indir_str, mnc_max_fsize
43        LOGICAL  exst        LOGICAL  exst
44    
# Line 65  C     Set default values for MNC run-tim Line 65  C     Set default values for MNC run-tim
65  C     2GB is 2147483648 bytes or approx: 2.1475e+09  C     2GB is 2147483648 bytes or approx: 2.1475e+09
66        mnc_max_fsize         =  2.1 _d 9        mnc_max_fsize         =  2.1 _d 9
67        readgrid_mnc          =  .FALSE.        readgrid_mnc          =  .FALSE.
68          seaice_mnc            =  .TRUE.
69    
70  C     Set the file name  C     Set the file name
71        DO i=1,MAX_LEN_MBUF        DO i=1,MAX_LEN_MBUF
# Line 189  C     simple: Line 190  C     simple:
190       &     .AND. snapshot_mnc ) snapshot_mdsio = .FALSE.       &     .AND. snapshot_mnc ) snapshot_mdsio = .FALSE.
191        IF ( (.NOT. outputTypesInclusive)        IF ( (.NOT. outputTypesInclusive)
192       &     .AND. monitor_mnc ) monitor_stdio = .FALSE.       &     .AND. monitor_mnc ) monitor_stdio = .FALSE.
193          IF ( (.NOT. outputTypesInclusive)
194         &     .AND. seaice_mnc ) seaice_mdsio = .FALSE.
195    
196  C     Reads are always an exclusive relationship  C     Reads are always an exclusive relationship
197        IF (pickup_read_mnc) pickup_read_mdsio = .FALSE.        IF (pickup_read_mnc) pickup_read_mdsio = .FALSE.
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22