pkg/ptracers/ptracers_dyn_state_data_mod.F

#include "PTRACERS_OPTIONS.h"
#ifdef PTRACERS_ALLOW_DYN_STATE

      MODULE PTRACERS_DYN_STATE_DATA_MOD

      use ptracers_dyn_state_mod

! instance of ptracers internal state data structure:
! array with one PTRACERS_ISTATE for each Ptracer
      TYPE(PTRACERS_ISTATE), POINTER :: PtrISt(:)

      END MODULE
#else
!     some compilers do not like empty files, so ...
      SUBROUTINE PTRACERS_DYN_STATE_DATA_MOD_DUMMY
        RETURN
      END SUBROUTINE
#endif

1	jahn	1.1	#include "PTRACERS_OPTIONS.h"
2			#ifdef PTRACERS_ALLOW_DYN_STATE
3
4			MODULE PTRACERS_DYN_STATE_DATA_MOD
5
6			use ptracers_dyn_state_mod
7
8			! instance of ptracers internal state data structure:
9			! array with one PTRACERS_ISTATE for each Ptracer
10			TYPE(PTRACERS_ISTATE), POINTER :: PtrISt(:)
11
12			END MODULE
13			#else
14	jahn	1.2	! some compilers do not like empty files, so ...
15			SUBROUTINE PTRACERS_DYN_STATE_DATA_MOD_DUMMY
16			RETURN
17			END SUBROUTINE
18	jahn	1.1	#endif
19