source: branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils305/NEMOGCM/NEMO/TOP_SRC/FABM/st2D_fabm.F90 @ 11979

Last change on this file since 11979 was 10156, checked in by dford, 2 years ago

Apply patch fabm_patch_e3284ca_889163b.diff from Jim Clark.

File size: 1.4 KB
Line 
1MODULE st2D_fabm
2   !!======================================================================
3   !!                      ***  MODULE  trc  ***
4   !! Passive tracers   :  module for tracers defined
5   !!======================================================================
6#if defined key_top
7   !!----------------------------------------------------------------------
8   !!   'key_top'                                                TOP models
9   !!----------------------------------------------------------------------
10   USE par_oce
11
12   IMPLICIT NONE
13   PUBLIC
14   !! passive tracers fields (before,now,after)
15   !! --------------------------------------------------
16   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)         ::  fabm_st2Dn           !: 2D state concentration for now time step
17   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)         ::  fabm_st2Da           !: 2D state concentration for next time step
18   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)         ::  fabm_st2Db           !: 2D state concentration for before time step
19#else
20   !!----------------------------------------------------------------------
21   !!  Empty module :                                     No passive tracer
22   !!----------------------------------------------------------------------
23#endif
24
25   !!======================================================================
26END MODULE st2d_fabm
27   
Note: See TracBrowser for help on using the repository browser.