Changeset 8911 for branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/OPA_SRC/DIA/diahth.F90

Timestamp:

2017-12-06T11:23:32+01:00 (6 years ago)

Author:

acc

Message:

Branch 2017/dev_r7881_ENHANCE09_RK3. Add changes for OSMOSIS BL scheme (and a few minor fixes). Done on this branch to ensure compatibility with the new ZDF arrangement. This branch has already been merged onto the dev_CNRS_2017 combined branch so these changes will need to be merged onto that branch once successfully reviewed. Fully SETTE tested at this point.

File:

• branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/OPA_SRC/DIA/diahth.F90 (modified) (2 diffs)

branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/OPA_SRC/DIA/diahth.F90

@@ -139 +139 @@
       DO jj = 1, jpj
          DO ji = 1, jpi
-            zztmp = bathy(ji,jj)
+            zztmp = gdepw_n(ji,jj,mbkt(ji,jj)+1) 
             hth     (ji,jj) = zztmp
             zabs2   (ji,jj) = zztmp
@@ -150 +150 @@
          DO jj = 1, jpj
             DO ji = 1, jpi
-               zztmp = bathy(ji,jj)
+               zztmp = gdepw_n(ji,jj,mbkt(ji,jj)+1) 
                zrho0_3(ji,jj) = zztmp
                zrho0_1(ji,jj) = zztmp