/[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.4 by mlosch, Fri Nov 19 20:17:48 2004 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"
16  #include "GRID.h"  #include "GRID.h"
# Line 15  C !INTERFACE: ========================== Line 21  C !INTERFACE: ==========================
21  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
22  C  myThid               :: thread number  C  myThid               :: thread number
23        INTEGER myThid        INTEGER myThid
24    CEOP
25    
26  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
27  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
# Line 25  c initialize parameters   c Line 32  c initialize parameters   c
32  ccccccccccccccccccccccccccc  ccccccccccccccccccccccccccc
33  #ifdef DIC_BIOTIC  #ifdef DIC_BIOTIC
34            print*,'QQ load dic parameters, initial vari'            print*,'QQ load dic parameters, initial vari'
35    c these two needed to be recalled for adjoint
36              call DIC_BIOTIC_PARAM(myThid)
37              call DIC_ABIOTIC_PARAM(myThid)
38    c --
39              CALL DIC_INI_FORCING(myThid)
40            call DIC_SURFFORCING_INIT(myThid)            call DIC_SURFFORCING_INIT(myThid)
41            call DIC_BIOTIC_INIT(myThid )            call DIC_BIOTIC_INIT(myThid )
42  #endif  #endif
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22