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	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
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	#include "GCHEM.h"
19
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	C that leave the choice, for each S/R, to do either single (master)
31	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	IF ( useDIC ) THEN
38	print*,'QQ load dic parameters, initial fixed'
39	CALL DIC_INIT_FIXED( myThid )
40	ENDIF
41	#endif /* ALLOW_DIC */
42	#ifdef ALLOW_CFC
43	IF ( useCFC ) THEN
44	print*,'QQ start cfc params'
45	CALL CFC_PARAM( myThid )
46	print*,'QQ read cfc atmos data'
47	CALL CFC_ATMOS( myThid )
48	ENDIF
49	#endif /* ALLOW_CFC */
50	c _END_MASTER( mythid )
51
52	#ifdef ALLOW_DARWIN
53	IF ( useDARWIN ) THEN
54	call DARWIN_INIT_FIXED(myThid)
55	ENDIF
56	#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