pkg/ptracers/ptracers_dyn_state_data_mod.F

C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_dyn_state_data_mod.F,v 1.3 2008/05/09 19:57:04 jahn Exp $
C $Name:  $

#include "PTRACERS_OPTIONS.h"
#ifdef PTRACERS_ALLOW_DYN_STATE

      MODULE PTRACERS_DYN_STATE_DATA_MOD

      use ptracers_dyn_state_mod

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

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

1	C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_dyn_state_data_mod.F,v 1.3 2008/05/09 19:57:04 jahn Exp $
2	C $Name: $
3
4	#include "PTRACERS_OPTIONS.h"
5	#ifdef PTRACERS_ALLOW_DYN_STATE
6
7	MODULE PTRACERS_DYN_STATE_DATA_MOD
8
9	use ptracers_dyn_state_mod
10
11	C instance of ptracers internal state data structure:
12	C array with one PTRACERS_ISTATE for each Ptracer
13	TYPE(PTRACERS_ISTATE), POINTER :: PtrISt(:)
14
15	END MODULE
16	#else
17	C some compilers do not like empty files, so ...
18	SUBROUTINE PTRACERS_DYN_STATE_DATA_MOD_DUMMY
19	RETURN
20	END
21	#endif
22