/[MITgcm]/MITgcm/pkg/gchem/gchem_init_vari.F
ViewVC logotype

Annotation of /MITgcm/pkg/gchem/gchem_init_vari.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.13 - (hide annotations) (download)
Wed Oct 14 05:04:07 2009 UTC (14 years, 7 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint64, checkpoint65, checkpoint62, checkpoint63, checkpoint65b, checkpoint65a, checkpoint62c, checkpoint62b, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62z, checkpoint62y, checkpoint62x, checkpoint61z, checkpoint61x, checkpoint61y
Changes since 1.12: +9 -5 lines 
Add call
1 heimbach 1.13 C $Header: /u/gcmpack/MITgcm/pkg/gchem/gchem_init_vari.F,v 1.12 2009/10/14 01:31:42 heimbach Exp $
2 ce107 1.8 C $Name: $
3 mlosch 1.4
4 stephd 1.1 #include "GCHEM_OPTIONS.h"
5 jahn 1.11 #ifdef ALLOW_DARWIN
6     #include "DARWIN_OPTIONS.h"
7     #endif
8 stephd 1.1
9     C !INTERFACE: ==========================================================
10     SUBROUTINE GCHEM_INIT_VARI(myThid )
11    
12 stephd 1.3 C !DESCRIPTION:
13     C calls subroutines that initialize any time dependent variables
14     C for any tracer experiment
15    
16     C !USES: ===============================================================
17 stephd 1.1 IMPLICIT NONE
18     #include "SIZE.h"
19     #include "EEPARAMS.h"
20     #include "PARAMS.h"
21 dfer 1.9 #include "GCHEM.h"
22 jmc 1.7 #ifdef ALLOW_AUTODIFF_TAMC
23     # include "GRID.h"
24     # include "DYNVARS.h"
25     #endif /* ALLOW_AUTODIFF_TAMC */
26 stephd 1.1
27     C !INPUT PARAMETERS: ===================================================
28     C myThid :: thread number
29     INTEGER myThid
30 stephd 1.3 CEOP
31 stephd 1.1
32     #ifdef ALLOW_GCHEM
33    
34     ccccccccccccccccccccccccccc
35     c initialize parameters c
36     ccccccccccccccccccccccccccc
37 stephd 1.6 #ifdef ALLOW_DIC
38 heimbach 1.13 # ifndef ALLOW_AUTODIFF_TAMC
39 dfer 1.9 IF ( useDIC ) THEN
40 heimbach 1.13 # endif
41     CALL DIC_INIT_VARIA(myThid)
42     CALL DIC_INI_FORCING(myThid)
43     CALL DIC_SURFFORCING_INIT(myThid)
44     CALL DIC_BIOTIC_INIT(myThid)
45     # ifndef ALLOW_AUTODIFF_TAMC
46 dfer 1.9 ENDIF
47 heimbach 1.13 # endif
48 heimbach 1.12 # ifdef ALLOW_CTRL
49     CALL DIC_SET_CONTROL(myThid)
50     # endif
51 stephd 1.6 #endif /* ALLOW_DIC */
52 stephd 1.1
53 jahn 1.11 #ifdef ALLOW_DARWIN
54     IF ( useDARWIN ) THEN
55     call DARWIN_INIT_VARI(myThid )
56     #ifdef ALLOW_CARBON
57     CALL DIC_SURFFORCING_INIT(myThid)
58     CALL DIC_DIAGS_INIT(myThid)
59     #endif
60     ENDIF
61     #endif
62 stephd 1.1 #endif /* ALLOW_GCHEM */
63    
64     RETURN
65     END
  ViewVC Help
Powered by ViewVC 1.1.22