Changeset 13103 for utils

Timestamp:

2020-06-12T13:44:47+02:00 (4 years ago)

Author:

rblod

Message:

ticket #2129 : merge trunk@13100 and correct a bug in bathy connection

Location:

utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src

Files:

• agrif_connect.F90 (modified) (1 diff)
• agrif_connection.F90 (deleted)

utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_connect.F90

@@ -123 +123 @@
                      e3t_interp(ji,jj,jk) = MAX( ptab(ji,jj,jk),MIN(e3zps_min, e3t_1d(jk)*e3zps_rat) )
                      e3t_interp(ji,jj,jk) = MIN( e3t_interp(ji,jj,jk),e3t_1d(jk) )
-                     e3t_0(ji,jj,jk) = ztabramp(ji,jj)*e3t_0(ji,jj,jk)+(1.-ztabramp(ji,jj))*e3t_interp(ji,jj,jk)
+                     e3t_0(ji,jj,jk) = ( 1. + ztabramp(ji,jj) )*e3t_0(ji,jj,jk) + ztabramp(ji,jj)*e3t_interp(ji,jj,jk)
                   ENDIF
              END DO