/[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.10 by jmc, Tue Apr 8 21:00:17 2008 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 12  C for any tracer experiment Line 13  C for any tracer experiment
13  C !USES: ===============================================================  C !USES: ===============================================================
14        IMPLICIT NONE        IMPLICIT NONE
15  #include "SIZE.h"  #include "SIZE.h"
 #include "GRID.h"  
 #include "DYNVARS.h"  
16  #include "EEPARAMS.h"  #include "EEPARAMS.h"
17  #include "PARAMS.h"  #include "PARAMS.h"
18    #include "GCHEM.h"
19    #ifdef ALLOW_AUTODIFF_TAMC
20    # include "GRID.h"
21    # include "DYNVARS.h"
22    #endif /* ALLOW_AUTODIFF_TAMC */
23    
24  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
25  C  myThid               :: thread number  C  myThid               :: thread number
26        INTEGER myThid        INTEGER myThid
27  CEOP  CEOP
28    
 #ifdef ALLOW_PTRACERS  
29  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
30    
          _BEGIN_MASTER( mythid )  
31  ccccccccccccccccccccccccccc  ccccccccccccccccccccccccccc
32  c initialize parameters   c  c initialize parameters   c
33  ccccccccccccccccccccccccccc  ccccccccccccccccccccccccccc
34  #ifdef DIC_BIOTIC  #ifdef ALLOW_DIC
35          IF ( useDIC ) THEN
36            print*,'QQ load dic parameters, initial vari'            print*,'QQ load dic parameters, initial vari'
 c these two needed to be recalled for adjoint  
           call DIC_BIOTIC_PARAM(myThid)  
           call DIC_ABIOTIC_PARAM(myThid)  
 c --  
37            CALL DIC_INI_FORCING(myThid)            CALL DIC_INI_FORCING(myThid)
38            call DIC_SURFFORCING_INIT(myThid)            CALL DIC_SURFFORCING_INIT(myThid)
39            call DIC_BIOTIC_INIT(myThid )            CALL DIC_BIOTIC_INIT(myThid )
40  #endif        ENDIF
41            _END_MASTER( mythid )  #endif /* ALLOW_DIC */
   
42    
43  #endif /* ALLOW_GCHEM */  #endif /* ALLOW_GCHEM */
 #endif /* ALLOW_PTRACERS */  
44    
45        RETURN        RETURN
46        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22