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	jmc	1.4	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	jahn	1.3
4	jahn	1.1	#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	jahn	1.3	C instance of ptracers internal state data structure:
12			C array with one PTRACERS_ISTATE for each Ptracer
13	jahn	1.1	TYPE(PTRACERS_ISTATE), POINTER :: PtrISt(:)
14
15			END MODULE
16			#else
17	jahn	1.3	C some compilers do not like empty files, so ...
18	jahn	1.2	SUBROUTINE PTRACERS_DYN_STATE_DATA_MOD_DUMMY
19			RETURN
20	jmc	1.4	END
21	jahn	1.1	#endif
22