Changeset 15173 for NEMO/branches/NERC/NEMO_4.0.4_CO9_package_tides/src/OCE/DOM/dom_oce.F90

Timestamp:

2021-08-04T16:43:12+02:00 (3 years ago)

Author:

deazer

Message:

Bug fixes for WAD and Zenv

File:

• NEMO/branches/NERC/NEMO_4.0.4_CO9_package_tides/src/OCE/DOM/dom_oce.F90 (modified) (2 diffs)

NEMO/branches/NERC/NEMO_4.0.4_CO9_package_tides/src/OCE/DOM/dom_oce.F90

@@ -152 +152 @@
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::           r1_hv_b , r1_hv_n , r1_hv_a   !: inverse of v-depth [1/m]
 
+!CEOD Scale of water column down to shallowest of neighbourinbg points over total
+!water depth
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: scaled_e3t_0_ik   , scaled_e3t_0_jk
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: scaled_e3t_0_ip1k , scaled_e3t_0_jp1k
+!CEOD
    INTEGER, PUBLIC ::   nla10              !: deepest    W level Above  ~10m (nlb10 - 1)
    INTEGER, PUBLIC ::   nlb10              !: shallowest W level Bellow ~10m (nla10 + 1) 
@@ -294 +299 @@
          !
       ALLOCATE( wmask(jpi,jpj,jpk) , wumask(jpi,jpj,jpk), wvmask(jpi,jpj,jpk) , STAT=ierr(12) )
+!CEOD 
+      ALLOCATE(  scaled_e3t_0_ik  (jpi,jpj) , scaled_e3t_0_jk  (jpi,jpj) ,      & 
+         &       scaled_e3t_0_ip1k(jpi,jpj) , scaled_e3t_0_jp1k(jpi,jpj) ,  STAT=ierr(13) )
+         !
       !
       dom_oce_alloc = MAXVAL(ierr)