/[MITgcm]/MITgcm/pkg/gchem/gchem_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/gchem/gchem_readparms.F

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

revision 1.13 by dfer, Tue Apr 8 16:20:16 2008 UTC revision 1.14 by dfer, Tue Apr 8 20:23:48 2008 UTC
# Line 42  CEOP Line 42  CEOP
42    
43        NAMELIST /GCHEM_PARM01/        NAMELIST /GCHEM_PARM01/
44       &                   tIter0,       &                   tIter0,
      &                   WindFile,  
      &                   IceFile,  
      &                   AtmospFile,  
      &                   IronFile,  
      &                   SilicaFile,  
45       &                   Filename1,       &                   Filename1,
46       &                   Filename2,       &                   Filename2,
47       &                   Filename3,       &                   Filename3,
# Line 68  C Set defaults values for parameters in Line 63  C Set defaults values for parameters in
63         useCFC = .FALSE.         useCFC = .FALSE.
64         tIter0 = UNSET_I         tIter0 = UNSET_I
65         nsubtime=1         nsubtime=1
        windFile=' '  
        atmospFile=' '  
        IceFile=' '  
        IronFile=' '  
        SilicaFile=' '  
66         Filename1=' '         Filename1=' '
67         Filename2=' '         Filename2=' '
68         Filename3=' '         Filename3=' '
# Line 141  c      nRetired = nRetired+1 Line 131  c      nRetired = nRetired+1
131        ENDIF        ENDIF
132  #endif  #endif
133    
134    #ifdef ALLOW_CFC
135          IF ( useCFC ) THEN
136          CALL CFC_READPARMS(myThid)
137          ENDIF
138    #endif
139    
140    
141  C Everyone else must wait for the parameters to be loaded  C Everyone else must wait for the parameters to be loaded
142        _BARRIER        _BARRIER
143    
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22