pkg/gchem/gchem_init_fixed.F

52a73f04fb Step*0001 #include "GCHEM_OPTIONS.h"
                0002
                0003 C !INTERFACE: ==========================================================
                0004       SUBROUTINE GCHEM_INIT_FIXED(myThid )
                0005
8120bbf77d Step*0006 C !DESCRIPTION:
                0007 C calls subroutines that initialized fixed variables for any tracer
                0008 C experiment
                0009
                0010 C !USES: ===============================================================
52a73f04fb Step*0011       IMPLICIT NONE
                0012 #include "SIZE.h"
                0013 #include "EEPARAMS.h"
                0014 #include "PARAMS.h"
a9504b1b15 Jean*0015 #include "GCHEM.h"
52a73f04fb Step*0016
                0017 C !INPUT PARAMETERS: ===================================================
                0018 C  myThid               :: thread number
                0019       INTEGER myThid
8120bbf77d Step*0020 CEOP
52a73f04fb Step*0021
                0022 #ifdef ALLOW_GCHEM
                0023
8c664c8b58 Jean*0024 C     !LOCAL VARIABLES:
                0025
d0b5635848 Jean*0026 C jmc: simpler to put MASTER thread directive within individual S/R :
a9504b1b15 Jean*0027 C      that leave the choice, for each S/R, to do either single (master)
d0b5635848 Jean*0028 C      thread tasks or Multi-threaded tasks.
0b2b69e236 Jean*0029 c        _BEGIN_MASTER( myThid )
52a73f04fb Step*0030 ccccccccccccccccccccccccccc
                0031 c initialize parameters   c
                0032 ccccccccccccccccccccccccccc
0b2b69e236 Jean*0033 #ifdef ALLOW_CFC
                0034       IF ( useCFC ) THEN
                0035          print*,'QQ start cfc params'
                0036          CALL CFC_PARAM( myThid )
                0037          print*,'QQ read cfc atmos data'
                0038          CALL CFC_ATMOS( myThid )
                0039       ENDIF
                0040 #endif /* ALLOW_CFC */
fd9adddc17 Step*0041 #ifdef ALLOW_DIC
a9504b1b15 Jean*0042       IF ( useDIC ) THEN
0b2b69e236 Jean*0043          print*,'QQ load dic parameters, initial fixed'
                0044          CALL DIC_INIT_FIXED( myThid )
a9504b1b15 Jean*0045       ENDIF
fd9adddc17 Step*0046 #endif /* ALLOW_DIC */
0b2b69e236 Jean*0047 #ifdef ALLOW_BLING
                0048       IF ( useBLING ) THEN
                0049          CALL BLING_INIT_FIXED( myThid )
a9504b1b15 Jean*0050       ENDIF
0b2b69e236 Jean*0051 #endif /* ALLOW_BLING */
                0052 c         _END_MASTER( myThid )
52a73f04fb Step*0053
5dae554984 Oliv*0054 #ifdef ALLOW_DARWIN
                0055       IF ( useDARWIN ) THEN
0b2b69e236 Jean*0056          CALL DARWIN_INIT_FIXED(myThid)
5dae554984 Oliv*0057       ENDIF
                0058 #endif
                0059
d4e767fb31 Jean*0060 #ifdef ALLOW_SPOIL
                0061       IF ( useSPOIL ) THEN
                0062          CALL SPOIL_INIT_FIXED( myThid )
                0063       ENDIF
                0064 #endif
                0065
8c664c8b58 Jean*0066 #ifdef ALLOW_DIAGNOSTICS
                0067 C     Define diagnostics Names :
                0068       IF ( useDiagnostics ) THEN
                0069         CALL GCHEM_DIAGNOSTICS_INIT( myThid )
                0070       ENDIF
                0071 #endif /* ALLOW_DIAGNOSTICS */
52a73f04fb Step*0072
                0073 #endif /* ALLOW_GCHEM */
                0074
                0075       RETURN
                0076       END