Back to home page

MITgcm

 
 

    


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 UTC
f47a366c63 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: ***