pkg/gchem/gchem_init_fixed.F

C $Header: /u/gcmpack/MITgcm_contrib/darwin/pkg/gchem/gchem_init_fixed.F,v 1.2 2008/06/02 20:32:49 jahn Exp $
C $Name:  $

#include "GCHEM_OPTIONS.h"

C !INTERFACE: ==========================================================
      SUBROUTINE GCHEM_INIT_FIXED(myThid )

C !DESCRIPTION:
C calls subroutines that initialized fixed variables for any tracer
C experiment

C !USES: ===============================================================
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GCHEM.h"

C !INPUT PARAMETERS: ===================================================
C  myThid               :: thread number
      INTEGER myThid
CEOP

#ifdef ALLOW_GCHEM

C     !LOCAL VARIABLES:

C jmc: simpler to put MASTER thread directive within individual S/R :
C      that leave the choice, for each S/R, to do either single (master)
C      thread tasks or Multi-threaded tasks.
c        _BEGIN_MASTER( mythid )
ccccccccccccccccccccccccccc
c initialize parameters   c
ccccccccccccccccccccccccccc
#ifdef ALLOW_DIC
      IF ( useDIC ) THEN
          print*,'QQ load dic parameters, initial fixed'
          CALL DIC_INIT_FIXED( myThid )
      ENDIF
#endif /* ALLOW_DIC */
#ifdef ALLOW_CFC
      IF ( useCFC ) THEN
          print*,'QQ start cfc params'
          CALL CFC_PARAM( myThid )
          print*,'QQ read cfc atmos data'
          CALL CFC_ATMOS( myThid )
      ENDIF
#endif /* ALLOW_CFC */
c         _END_MASTER( mythid )

#ifdef ALLOW_DARWIN
      IF ( useDARWIN ) THEN
         call DARWIN_INIT_FIXED(myThid)
      ENDIF
#endif

#ifdef ALLOW_NPZDCAR
         call NPZDCAR_INIT_FIXED(myThid)
#endif

#ifdef ALLOW_DIAGNOSTICS
C     Define diagnostics Names :
      IF ( useDiagnostics ) THEN
        CALL GCHEM_DIAGNOSTICS_INIT( myThid )
      ENDIF
#endif /* ALLOW_DIAGNOSTICS */

#endif /* ALLOW_GCHEM */

      RETURN
      END
1	jahn	1.3	C $Header: /u/gcmpack/MITgcm_contrib/darwin/pkg/gchem/gchem_init_fixed.F,v 1.2 2008/06/02 20:32:49 jahn Exp $
2			C $Name: $
3	jahn	1.1
4			#include "GCHEM_OPTIONS.h"
5
6			C !INTERFACE: ==========================================================
7			SUBROUTINE GCHEM_INIT_FIXED(myThid )
8
9			C !DESCRIPTION:
10			C calls subroutines that initialized fixed variables for any tracer
11			C experiment
12
13			C !USES: ===============================================================
14			IMPLICIT NONE
15			#include "SIZE.h"
16			#include "EEPARAMS.h"
17			#include "PARAMS.h"
18	jahn	1.2	#include "GCHEM.h"
19	jahn	1.1
20			C !INPUT PARAMETERS: ===================================================
21			C myThid :: thread number
22			INTEGER myThid
23			CEOP
24
25			#ifdef ALLOW_GCHEM
26
27			C !LOCAL VARIABLES:
28
29			C jmc: simpler to put MASTER thread directive within individual S/R :
30	jahn	1.2	C that leave the choice, for each S/R, to do either single (master)
31	jahn	1.1	C thread tasks or Multi-threaded tasks.
32			c _BEGIN_MASTER( mythid )
33			ccccccccccccccccccccccccccc
34			c initialize parameters c
35			ccccccccccccccccccccccccccc
36			#ifdef ALLOW_DIC
37	jahn	1.2	IF ( useDIC ) THEN
38			print*,'QQ load dic parameters, initial fixed'
39			CALL DIC_INIT_FIXED( myThid )
40			ENDIF
41	jahn	1.1	#endif /* ALLOW_DIC */
42			#ifdef ALLOW_CFC
43	jahn	1.2	IF ( useCFC ) THEN
44	jahn	1.1	print*,'QQ start cfc params'
45	jahn	1.2	CALL CFC_PARAM( myThid )
46	jahn	1.1	print*,'QQ read cfc atmos data'
47	jahn	1.2	CALL CFC_ATMOS( myThid )
48			ENDIF
49	jahn	1.1	#endif /* ALLOW_CFC */
50			c _END_MASTER( mythid )
51
52			#ifdef ALLOW_DARWIN
53	jahn	1.2	IF ( useDARWIN ) THEN
54	jahn	1.1	call DARWIN_INIT_FIXED(myThid)
55	jahn	1.2	ENDIF
56	jahn	1.1	#endif
57
58			#ifdef ALLOW_NPZDCAR
59			call NPZDCAR_INIT_FIXED(myThid)
60			#endif
61
62			#ifdef ALLOW_DIAGNOSTICS
63			C Define diagnostics Names :
64			IF ( useDiagnostics ) THEN
65			CALL GCHEM_DIAGNOSTICS_INIT( myThid )
66			ENDIF
67			#endif /* ALLOW_DIAGNOSTICS */
68
69			#endif /* ALLOW_GCHEM */
70
71			RETURN
72			END