/[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.1 by stephd, Mon Oct 6 20:06:52 2003 UTC revision 1.7 by jmc, Wed Aug 9 01:24:51 2006 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
37              call DIC_BIOTIC_PARAM(myThid)
38              call DIC_ABIOTIC_PARAM(myThid)
39    #endif /* ALLOW_AUTODIFF_TAMC */
40    c --
41              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.1  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22