/[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.2 by stephd, Thu Dec 4 22:40:16 2003 UTC revision 1.8 by ce107, Tue Jul 31 23:01:58 2007 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: ==========================================================
7        SUBROUTINE GCHEM_INIT_VARI(myThid )        SUBROUTINE GCHEM_INIT_VARI(myThid )
8    
9    C !DESCRIPTION:
10    C calls subroutines that initialize any time dependent variables
11    C for any tracer experiment
12    
13    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
25        INTEGER myThid        INTEGER myThid
26    CEOP
27    
 #ifdef ALLOW_PTRACERS  
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 DIC_BIOTIC  #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  #endif /* ALLOW_DIC */
           _END_MASTER( mythid )  
45    
46    
47  #endif /* ALLOW_GCHEM */  #endif /* ALLOW_GCHEM */
 #endif /* ALLOW_PTRACERS */  
48    
49        RETURN        RETURN
50        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22