Changeset 14728

Timestamp:

2021-04-19T14:51:45+02:00 (3 years ago)

Author:

smueller

Message:

Bugfix in subroutine zdf_osm_fgr_terms of module zdfosm (ticket #2353)

File:

• NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90

@@ -2979 +2979 @@
          zsc_uw_2(:,:) = ( 2.25_wp - 3.0_wp * ( 1.0_wp - EXP( -1.25_wp * 2.0_wp ) ) ) * ( 1.0_wp - EXP( -4.0_wp * 2.0_wp ) ) *   &
             &            zsc_uw_1(:,:)
-         zsc_vw_1(:,:) = ff_t * pustke(A2D(0)) * phbl(A2D(0))
+         zsc_vw_1(:,:) = ff_t(A2D(0)) * pustke(A2D(0)) * phbl(A2D(0))
          zsc_vw_2(:,:) = -0.11_wp * SIN( 3.14159_wp * ( 2.0_wp + 0.4_wp ) ) * EXP( -1.0_wp * ( 1.5_wp + 2.0_wp )**2 ) *   &
             &            zsc_vw_1(:,:)