/[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.6 by stephd, Thu Aug 18 19:29:51 2005 UTC revision 1.7 by jmc, Wed Aug 9 01:24:51 2006 UTC
# Line 13  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    #ifdef ALLOW_AUTODIFF_TAMC
19    # include "GRID.h"
20    # include "DYNVARS.h"
21    #endif /* ALLOW_AUTODIFF_TAMC */
22    
23  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
24  C  myThid               :: thread number  C  myThid               :: thread number
# Line 25  CEOP Line 27  CEOP
27    
28  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
29    
          _BEGIN_MASTER( mythid )  
30  ccccccccccccccccccccccccccc  ccccccccccccccccccccccccccc
31  c initialize parameters   c  c initialize parameters   c
32  ccccccccccccccccccccccccccc  ccccccccccccccccccccccccccc
33  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
34            print*,'QQ load dic parameters, initial vari'            print*,'QQ load dic parameters, initial vari'
35    #ifdef ALLOW_AUTODIFF_TAMC
36  c these two needed to be recalled for adjoint  c these two needed to be recalled for adjoint
37            call DIC_BIOTIC_PARAM(myThid)            call DIC_BIOTIC_PARAM(myThid)
38            call DIC_ABIOTIC_PARAM(myThid)            call DIC_ABIOTIC_PARAM(myThid)
39    #endif /* ALLOW_AUTODIFF_TAMC */
40  c --  c --
41            CALL DIC_INI_FORCING(myThid)            CALL DIC_INI_FORCING(myThid)
42            call DIC_SURFFORCING_INIT(myThid)            call DIC_SURFFORCING_INIT(myThid)
43            call DIC_BIOTIC_INIT(myThid )            call DIC_BIOTIC_INIT(myThid )
44  #endif /* ALLOW_DIC */  #endif /* ALLOW_DIC */
           _END_MASTER( mythid )  
45    
46    
47  #endif /* ALLOW_GCHEM */  #endif /* ALLOW_GCHEM */
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22