Changeset 14264

Timestamp:

2021-01-05T18:53:16+01:00 (3 years ago)

Author:

smueller

Message:

Adjustments of modifications made with changeset [14260] (ticket #2353)

File:

• NEMO/branches/2020/dev_r14122_ENHANCE-14_smueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_r14122_ENHANCE-14_smueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90

@@ -1680 +1680 @@
              zpe_mle_layer = 0._wp
              zpe_mle_ref = 0._wp
+             zthermal = rab_n(ji,jj,1,jp_tem)
+             zbeta    = rab_n(ji,jj,1,jp_sal)
              DO jk = ibld(ji,jj), mld_prof(ji,jj)
-               zthermal = rab_n(ji,jj,jk,jp_tem)
-               zbeta    = rab_n(ji,jj,jk,jp_sal)
                zbuoy = grav * ( zthermal * ts(ji,jj,jk,jp_tem,Kmm) - zbeta * ts(ji,jj,jk,jp_sal,Kmm) )
                zpe_mle_layer = zpe_mle_layer + zbuoy * gdepw(ji,jj,jk,Kmm) * e3w(ji,jj,jk,Kmm)
@@ -2376 +2376 @@
 
       zmld_midu(:,:)   = 0.0_wp
-      ztsm_midu(:,:,:) = 0.0_wp
+      ztsm_midu(:,:,:) = 10.0_wp
       DO_2D( 0, 0, 1, 0 )
          zdtdx(ji,jj) = ( ztm(ji+1,jj) - ztm( ji,jj) )  * umask(ji,jj,1) / e1u(ji,jj)
@@ -2386 +2386 @@
 
       zmld_midv(:,:)   = 0.0_wp
-      ztsm_midv(:,:,:) = 0.0_wp
+      ztsm_midv(:,:,:) = 10.0_wp
       DO_2D( 1, 0, 0, 0 )
          zdtdy(ji,jj) = ( ztm(ji,jj+1) - ztm( ji,jj) ) * vmask(ji,jj,1) / e1v(ji,jj)