Changeset 6912 for CONFIG/UNIFORM

Timestamp:

08/07/24 10:44:43 (6 months ago)

Author:

cetlod

Message:

NEMOv6.5 : bugfix in ldftra routine

File:

• CONFIG/UNIFORM/v6/NEMO_v6.5/SOURCES/ldftra.F90 (modified) (3 diffs)

CONFIG/UNIFORM/v6/NEMO_v6.5/SOURCES/ldftra.F90

@@ -177 +177 @@
          WRITE(numout,*) '            switching triad or not               rn_sw_triad     = ', rn_sw_triad
          WRITE(numout,*) '            lateral mixing on bottom             ln_botmix_triad = ', ln_botmix_triad
-         WRITE(numout,*) '        magnitude of lateral mixing revisiting   ln_ldf_CdL      = ', ln_ldf_CdL 
+         WRITE(numout,*) '        magnitude of lateral mixing revisiting   ln_ldfCdL       = ', ln_ldfCdL 
          WRITE(numout,*) '      coefficients :'
          WRITE(numout,*) '         type of time-space variation            nn_aht_ijk_t    = ', nn_aht_ijk_t
@@ -421 +421 @@
          !                                             !   increase to aht0 within 20N-20S
          IF( ln_ldfeiv .AND. nn_aei_ijk_t == 21 ) THEN   ! use the already computed aei.
-            IF( ln_ldf_CdL ) THEN
+            IF( ln_ldfCdL ) THEN
                ahtu(:,:,1) = 3._wp * aeiu(:,:,1)  ! /!\ Coeffs modified by CdL
                ahtv(:,:,1) = 3._wp * aeiv(:,:,1)  ! /!\ Coeffs modified by CdL
@@ -701 +701 @@
       IF( nn_hls == 1 )   CALL lbc_lnk( 'ldftra', zaeiw(:,:), 'W', 1.0_wp )   ! lateral boundary condition
       !
-      IF( ln_ldf_CdL ) THEN
+      IF( ln_ldfCdL ) THEN
          DO_2D( 0, 0, 0, 0 ) ! /!\ Coeffs halved by CdL
             paeiu(ji,jj,1) = r1_4 * ( zaeiw(ji,jj) + zaeiw(ji+1,jj  ) ) * umask(ji,jj,1)