/[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.5 by mlosch, Fri Nov 19 20:17:48 2004 UTC revision 1.6 by mlosch, Fri Nov 19 21:28:47 2004 UTC
# Line 25  C  myThid               :: thread number Line 25  C  myThid               :: thread number
25  C !OUTPUT PARAMETERS: ==================================================  C !OUTPUT PARAMETERS: ==================================================
26  C  none  C  none
27    
 #ifdef ALLOW_PTRACERS  
28  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
29    
30  C !LOCAL VARIABLES: ====================================================  C !LOCAL VARIABLES: ====================================================
# Line 69  C Close the open data file Line 68  C Close the open data file
68  C Everyone else must wait for the parameters to be loaded  C Everyone else must wait for the parameters to be loaded
69        _BARRIER        _BARRIER
70    
71  #endif  #endif /* ALLOW_GCHEM */
 #endif /* ALLOW_PTRACERS */  
72    
73        RETURN        RETURN
74        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22