1 |
C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_dyn_state_data_mod.F,v 1.4 2008/05/10 19:57:10 jmc 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_DUMMY |
19 |
RETURN |
20 |
END |
21 |
#endif |
22 |
|