/[MITgcm]/MITgcm/pkg/ptracers/ptracers_dyn_state_mod.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_dyn_state_mod.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jahn, Fri May 9 15:35:01 2008 UTC revision 1.3 by jahn, Fri May 9 19:57:04 2008 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "PTRACERS_OPTIONS.h"  #include "PTRACERS_OPTIONS.h"
5  #ifdef PTRACERS_ALLOW_DYN_STATE  #ifdef PTRACERS_ALLOW_DYN_STATE
6    
7        MODULE PTRACERS_DYN_STATE_MOD        MODULE PTRACERS_DYN_STATE_MOD
8    
9  ! ptracers internal state data structures  C ptracers internal state data structures
10        TYPE PTRACERS_ISTATE        TYPE PTRACERS_ISTATE
11         _RL, POINTER :: som_P(:,:,:,:,:,:)         _RL, POINTER :: som_P(:,:,:,:,:,:)
12        END TYPE        END TYPE
# Line 45  Line 48 
48    
49        END MODULE        END MODULE
50  #else  #else
51  !     some compilers do not like empty files, so ...  C     some compilers do not like empty files, so ...
52        SUBROUTINE PTRACERS_DYN_STATE_MOD_DUMMY        SUBROUTINE PTRACERS_DYN_STATE_MOD_DUMMY
53          RETURN          RETURN
54        END SUBROUTINE        END SUBROUTINE
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22