matrix_example/code/PTRACERS_SIZE.h

4420301c83 Sama*0001 #ifdef ALLOW_PTRACERS
                0002
                0003 CBOP
                0004 C    !ROUTINE: PTRACERS_SIZE.h
                0005 C    !INTERFACE:
                0006 C #include PTRACERS_SIZE.h
                0007
                0008 C    !DESCRIPTION:
                0009 C Contains passive tracer array size (number of tracers).
                0010
                0011 C PTRACERS_num defines how many passive tracers are allocated/exist.
                0012 C  and is set here (default 1)
                0013 C
                0014 C     Number of tracers
                0015       INTEGER PTRACERS_num
                0016       PARAMETER(PTRACERS_num = 5 )
                0017
                0018 #ifdef ALLOW_AUTODIFF_TAMC
                0019       INTEGER    maxpass
                0020       PARAMETER( maxpass     = PTRACERS_num + 2 )
                0021 #endif
                0022
                0023 CEOP
                0024 #endif /* ALLOW_PTRACERS */
                0025
                0026 CEH3 ;;; Local Variables: ***
                0027 CEH3 ;;; mode:fortran ***
                0028 CEH3 ;;; End: ***