/[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.20 by edhill, Sun Apr 3 05:16:43 2005 UTC revision 1.21 by edhill, Sun Apr 17 00:25:46 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, seaice_mnc,       &     readgrid_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.
       seaice_mnc            =  .TRUE.  
68    
69  C     Set the file name  C     Set the file name
70        DO i=1,MAX_LEN_MBUF        DO i=1,MAX_LEN_MBUF
# Line 190  C     simple: Line 189  C     simple:
189       &     .AND. snapshot_mnc ) snapshot_mdsio = .FALSE.       &     .AND. snapshot_mnc ) snapshot_mdsio = .FALSE.
190        IF ( (.NOT. outputTypesInclusive)        IF ( (.NOT. outputTypesInclusive)
191       &     .AND. monitor_mnc ) monitor_stdio = .FALSE.       &     .AND. monitor_mnc ) monitor_stdio = .FALSE.
       IF ( (.NOT. outputTypesInclusive)  
      &     .AND. seaice_mnc ) seaice_mdsio = .FALSE.  
192    
193  C     Reads are always an exclusive relationship  C     Reads are always an exclusive relationship
194        IF (pickup_read_mnc) pickup_read_mdsio = .FALSE.        IF (pickup_read_mnc) pickup_read_mdsio = .FALSE.
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22