Changeset 14200 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/ISF/isfcpl.F90

Timestamp:

2020-12-17T15:36:44+01:00 (4 years ago)

Author:

mcastril

Message:

Merging r14117 through r14199 into dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final

File:

• NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/ISF/isfcpl.F90 (modified) (4 diffs)

NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/ISF/isfcpl.F90

@@ -15 +15 @@
 #if defined key_qco
    USE domqco  , ONLY : dom_qco_zgr      ! vertical scale factor interpolation
+#elif defined key_linssh
+   !                                     ! fix in time coordinate
 #else
    USE domvvl  , ONLY : dom_vvl_zgr      ! vertical scale factor interpolation
@@ -117 +119 @@
       vv   (:,:,:,Kbb)   = vv   (:,:,:,Kmm)
       ssh (:,:,Kbb)     = ssh (:,:,Kmm)
-#if ! defined key_qco
+#if ! defined key_qco   &&   ! defined key_linssh
       e3t(:,:,:,Kbb)   = e3t(:,:,:,Kmm)
 #endif
@@ -217 +219 @@
       IF(lwp) write(numout,*) 'isfcpl_ssh : recompute scale factor from ssh (new wet cell,Kmm)'
       IF(lwp) write(numout,*) '~~~~~~~~~~~'
-#if ! defined key_qco
+#if defined key_qco
+      CALL dom_qco_zgr(Kbb, Kmm)
+#elif defined key_linssh
+      ! linear ssh : fix in time coord.
+#else
       DO jk = 1, jpk
          e3t(:,:,jk,Kmm) = e3t_0(:,:,jk) * ( 1._wp + (ht_0(:,:) + ssh(:,:,Kmm)) * r1_ht_0(:,:) )
@@ -223 +229 @@
       e3t(:,:,:,Kbb) = e3t(:,:,:,Kmm)
       CALL dom_vvl_zgr(Kbb, Kmm, Kaa)
-#else
-      CALL dom_qco_zgr(Kbb, Kmm)
 #endif
       !