File indexing completed on 2018-07-24 05:09:44 UTC
view on githubraw file Latest commit d4e767fb on 2018-07-18 23:48:08 UTC
52a73f04fb Step*0001 #include "GCHEM_OPTIONS.h"
0002
0003
0004 SUBROUTINE GCHEM_INIT_FIXED(myThid )
0005
8120bbf77d Step*0006
0007
0008
0009
0010
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
0018
0019 INTEGER myThid
8120bbf77d Step*0020
52a73f04fb Step*0021
0022 #ifdef ALLOW_GCHEM
0023
8c664c8b58 Jean*0024
0025
d0b5635848 Jean*0026
a9504b1b15 Jean*0027
d0b5635848 Jean*0028
0b2b69e236 Jean*0029
52a73f04fb Step*0030
0031
0032
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
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
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