/[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.4 by mlosch, Fri Nov 19 20:17:48 2004 UTC revision 1.5 by mlosch, Fri Nov 19 21:28:47 2004 UTC
# Line 23  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 39  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.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22