- Timestamp:
- 2020-04-17T10:28:12+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/oce.F90
r12724 r12761 32 32 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: Cu_adv !: vertical Courant number (adaptive-implicit) 33 33 34 !! free surface ! before ! now ! after !35 !! ------------ ! fields ! fields ! fields !34 !! free surface 35 !! ------------ 36 36 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: ssh, uu_b, vv_b !: SSH [m] and barotropic velocities [m/s] 37 37 !REAL(wp), PUBLIC, ALLOCATABLE, SAVE, TARGET, DIMENSION(:,:,:) :: ssh !: SSH [m] 38 !REAL(wp), PUBLIC, ALLOCATABLE, SAVE , DIMENSION(:,:,:) :: uu_b, vv_b !: barotropic velocities [m/s] 39 38 40 !! Arrays at barotropic time step: ! befbefore! before ! now ! after ! 39 41 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: ubb_e , ub_e , un_e , ua_e !: u-external velocity
Note: See TracChangeset
for help on using the changeset viewer.