pkg/gchem/gchem_init_vari.F

52a73f04fb Step*0001 #include "GCHEM_OPTIONS.h"
0b2b69e236 Jean*0002 #ifdef ALLOW_BLING
                0003 # include "BLING_OPTIONS.h"
                0004 #endif
5dae554984 Oliv*0005 #ifdef ALLOW_DARWIN
0b2b69e236 Jean*0006 # include "DARWIN_OPTIONS.h"
5dae554984 Oliv*0007 #endif
52a73f04fb Step*0008
                0009 C !INTERFACE: ==========================================================
                0010       SUBROUTINE GCHEM_INIT_VARI(myThid )
                0011
8120bbf77d Step*0012 C !DESCRIPTION:
                0013 C calls subroutines that initialize any time dependent variables
                0014 C for any tracer experiment
                0015
                0016 C !USES: ===============================================================
52a73f04fb Step*0017       IMPLICIT NONE
                0018 #include "SIZE.h"
                0019 #include "EEPARAMS.h"
                0020 #include "PARAMS.h"
b2f03f513d Jean*0021 #ifdef ALLOW_AUTODIFF
40cbefd431 Jean*0022 # include "GRID.h"
                0023 # include "DYNVARS.h"
b2f03f513d Jean*0024 #endif /* ALLOW_AUTODIFF */
27ed62aff6 Jean*0025 #include "GCHEM.h"
                0026 #include "GCHEM_SIZE.h"
                0027 #include "GCHEM_FIELDS.h"
52a73f04fb Step*0028
                0029 C !INPUT PARAMETERS: ===================================================
                0030 C  myThid               :: thread number
                0031       INTEGER myThid
8120bbf77d Step*0032 CEOP
52a73f04fb Step*0033
27ed62aff6 Jean*0034 C !LOCAL VARIABLES: ====================================================
                0035 C  i,j,k,bi,bj          :: loop indices
                0036 C  jTr                  :: ptracer number
                0037 #ifdef GCHEM_ADD2TR_TENDENCY
                0038       INTEGER i,j,k
                0039       INTEGER bi,bj
                0040       INTEGER jTr
                0041 #endif /* GCHEM_ADD2TR_TENDENCY */
                0042
                0043 C--   Initialise GCHEM variables:
                0044
                0045 #ifdef GCHEM_ADD2TR_TENDENCY
                0046       DO jTr = 1, GCHEM_tendTr_num
                0047        DO bj=myByLo(myThid),myByHi(myThid)
                0048         DO bi=myBxLo(myThid),myBxHi(myThid)
                0049          DO k = 1, Nr
                0050           DO j = 1-OLy, sNy+OLy
                0051            DO i = 1-OLx, sNx+OLx
                0052             gchemTendency(i,j,k,bi,bj,jTr) = 0. _d 0
                0053            ENDDO
                0054           ENDDO
                0055          ENDDO
                0056         ENDDO
                0057        ENDDO
                0058       ENDDO
                0059 #endif /* GCHEM_ADD2TR_TENDENCY */
                0060
                0061 C--   Initialise other Geo-Chemistry pkg variables:
52a73f04fb Step*0062
fd9adddc17 Step*0063 #ifdef ALLOW_DIC
b2f03f513d Jean*0064 # ifdef ALLOW_AUTODIFF
                0065       IF ( .NOT.useDIC ) STOP 'ABNORMAL END: S/R GCHEM_INIT_VARI'
                0066 # else /* ALLOW_AUTODIFF */
bcb8efaf8a Davi*0067       IF ( useDIC ) THEN
b2f03f513d Jean*0068 # endif /* ALLOW_AUTODIFF */
e1ac96464f Patr*0069          CALL DIC_INIT_VARIA(myThid)
b2f03f513d Jean*0070 # ifndef ALLOW_AUTODIFF
                0071       ENDIF
322335e0d4 Patr*0072 # endif
fd9adddc17 Step*0073 #endif /* ALLOW_DIC */
52a73f04fb Step*0074
0b2b69e236 Jean*0075 #ifdef ALLOW_BLING
                0076 # ifndef ALLOW_AUTODIFF_TAMC
                0077       IF ( useBLING ) THEN
                0078 # endif
                0079          CALL BLING_INIT_VARIA(myThid)
                0080          CALL BLING_INI_FORCING(myThid)
                0081          CALL BLING_CARBONATE_INIT(myThid)
                0082 # ifndef ALLOW_AUTODIFF_TAMC
                0083       ENDIF
                0084 # endif
                0085 #endif /* ALLOW_BLING */
                0086
d4e767fb31 Jean*0087 #ifdef ALLOW_SPOIL
                0088       IF ( useSPOIL ) THEN
                0089          CALL SPOIL_INIT_VARIA( myThid )
                0090       ENDIF
                0091 #endif /* ALLOW_SPOIL */
                0092
5dae554984 Oliv*0093 #ifdef ALLOW_DARWIN
                0094       IF ( useDARWIN ) THEN
b2f03f513d Jean*0095          CALL DARWIN_INIT_VARI(myThid )
5dae554984 Oliv*0096 #ifdef ALLOW_CARBON
                0097          CALL DIC_SURFFORCING_INIT(myThid)
                0098          CALL DIC_DIAGS_INIT(myThid)
                0099 #endif
                0100       ENDIF
27ed62aff6 Jean*0101 #endif /* ALLOW_DARWIN */
52a73f04fb Step*0102
                0103       RETURN
                0104       END