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

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

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

revision 1.3 by stephd, Wed Jan 28 18:49:05 2004 UTC revision 1.5 by mlosch, Fri Nov 19 21:28:47 2004 UTC
# Line 1  Line 1 
1  #include "CPP_OPTIONS.h"  C$Header$
2  #include "PTRACERS_OPTIONS.h"  C$Name$
3    
4  #include "GCHEM_OPTIONS.h"  #include "GCHEM_OPTIONS.h"
5    
6  C !INTERFACE: ==========================================================  C !INTERFACE: ==========================================================
# Line 22  C  myThid               :: thread number Line 23  C  myThid               :: thread number
23        INTEGER myThid        INTEGER myThid
24  CEOP  CEOP
25    
 #ifdef ALLOW_PTRACERS  
26  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
27    
28           _BEGIN_MASTER( mythid )           _BEGIN_MASTER( mythid )
# Line 38  c -- Line 38  c --
38            CALL DIC_INI_FORCING(myThid)            CALL DIC_INI_FORCING(myThid)
39            call DIC_SURFFORCING_INIT(myThid)            call DIC_SURFFORCING_INIT(myThid)
40            call DIC_BIOTIC_INIT(myThid )            call DIC_BIOTIC_INIT(myThid )
41  #endif  #endif /* DIC_BIOTIC */
42            _END_MASTER( mythid )            _END_MASTER( mythid )
43    
44    
45  #endif /* ALLOW_GCHEM */  #endif /* ALLOW_GCHEM */
 #endif /* ALLOW_PTRACERS */  
46    
47        RETURN        RETURN
48        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22