source:
branches/UKMO/dev_r5518_nemo_fabm_ukmo/NEMOGCM/NEMO/TOP_SRC/FABM/st2D_fabm.F90
@
7829
Last change on this file since 7829 was 7829, checked in by dford, 7 years ago | |
---|---|
File size: 1.4 KB |
Rev | Line | |
---|---|---|
[7829] | 1 | MODULE 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 | !!====================================================================== | |
26 | END MODULE st2d_fabm | |
27 |
Note: See TracBrowser
for help on using the repository browser.