/[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.6 by edhill, Fri Apr 2 16:12:48 2004 UTC revision 1.7 by edhill, Mon Apr 5 06:01:07 2004 UTC
# Line 36  C     !LOCAL VARIABLES: Line 36  C     !LOCAL VARIABLES:
36       &     useMNC,       &     useMNC,
37       &     mnc_use_outdir, mnc_outdir_date,       &     mnc_use_outdir, mnc_outdir_date,
38       &     mnc_outdir_str, mnc_indir_str,       &     mnc_outdir_str, mnc_indir_str,
39       &     mnc_echo_gvtypes, mnc_pickup_create, mnc_pickup_read       &     mnc_echo_gvtypes, mnc_pickup_create, mnc_pickup_read,
40         &     mnc_use_for_mon
41        LOGICAL  exst        LOGICAL  exst
42    
43  C     Functions  C     Functions
# Line 56  C     Set default values for MNC run-tim Line 57  C     Set default values for MNC run-tim
57        mnc_pickup_read       =  .FALSE.        mnc_pickup_read       =  .FALSE.
58        mnc_use_indir         =  .FALSE.        mnc_use_indir         =  .FALSE.
59          mnc_indir_str(1:4)  =  '    '          mnc_indir_str(1:4)  =  '    '
60          mnc_use_for_mon       =  .FALSE.
61    
62  C     Set the file name  C     Set the file name
63        DO i=1,MAX_LEN_MBUF        DO i=1,MAX_LEN_MBUF
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22