![]() |
|
|||
File indexing completed on 2018-03-02 18:40:52 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTCf47a366c63 Jean*0001 #ifdef ALLOW_GCHEM 0002 0003 CBOP 0004 C !ROUTINE: GCHEM_SIZE.h 0005 C !INTERFACE: 0006 C #include GCHEM_SIZE.h 0007 0008 C !DESCRIPTION: 0009 C Contains GCHEM tracer array size (number of tracers). 0010 C Need to be included anywhere GCHEM_FIELDS.h is included 0011 0012 C GCHEM_tendTr_num :: defines how many GCHEM tendency tracers are allocated. 0013 INTEGER GCHEM_tendTr_num 0014 C Note: 1) tracers that use GCHEM_SEPARATE_FORCING are not counted here 0015 C since they do not use gchemTendency array. 0016 C 2) if several tendency-tracer pkgs are compiled with no intention to 0017 C be used all together, a smaller number could be specified like here: 0018 c PARAMETER( GCHEM_tendTr_num = 3 ) 0019 #ifdef ALLOW_CFC 0020 # include "CFC_SIZE.h" 0021 #else /* ALLOW_CFC */ 0022 INTEGER CFC_Tr_num 0023 PARAMETER( CFC_Tr_num = 0 ) 0024 #endif /* ALLOW_CFC */ 0025 #ifdef ALLOW_SPOIL 0026 # include "SPOIL_SIZE.h" 0027 #else /* ALLOW_SPOIL */ 0028 INTEGER SPOIL_Tr_num 0029 PARAMETER( SPOIL_Tr_num = 0 ) 0030 #endif /* ALLOW_SPOIL */ 0031 PARAMETER( GCHEM_tendTr_num = CFC_Tr_num + SPOIL_Tr_num ) 0032 CEOP 0033 #endif /* ALLOW_GCHEM */ 0034 0035 CEH3 ;;; Local Variables: *** 0036 CEH3 ;;; mode:fortran *** 0037 CEH3 ;;; End: ***
[ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |
![]() ![]() |