Changeset 12917 for NEMO/branches/UKMO/NEMO_4.0.1_biharmonic_GM/src/OCE/LDF/ldfdyn.F90

Timestamp:

2020-05-13T09:56:41+02:00 (4 years ago)

Author:

davestorkey

Message:

UKMO/NEMO_4.0.1_biharmonic_GM : remove redundant code (which breaks reproducibility).

File:

• NEMO/branches/UKMO/NEMO_4.0.1_biharmonic_GM/src/OCE/LDF/ldfdyn.F90 (modified) (3 diffs)

NEMO/branches/UKMO/NEMO_4.0.1_biharmonic_GM/src/OCE/LDF/ldfdyn.F90

@@ -380 +380 @@
             ENDDO
 
-            !     Surface BC : set to zero
-            bhm(:,:,1)   = 0._wp
-            !     Flat bottom BC : set to zero
-            bhm(:,:,jpk) = 0._wp 
-            !     Variable bathymetry case: diffusive fluxes masked in dyn_ldf_bgm
-
             !CW Test criterion for two grid-length mode for BGM scheme with leapfrog timestepping
             ! \frac{{\kappa \Delta t}{(\Delta z)^2 (\Delta x)^2}< 1/32 
@@ -460 +454 @@
             ENDDO
 
-            !     Surface BC : set to zero
-            bhm(:,:,1)   = 0._wp 
-            !     Flat bottom BC : set to zero
-            bhm(:,:,jpk) = 0._wp 
-            !     Variable bathymetry case: diffusive fluxes masked in dyn_ldf_bgm
-
             !--------------------------------
          CASE(  13  )      !==  fixed profile: steady profile of the form bhm0 X dx^2 X dz^2 in interior, zero at bottom and top  ==!
@@ -488 +476 @@
                ENDDO
             ENDDO
-
-            !     Surface BC : set to zero
-            bhm(:,:,1)   = 0._wp 
-            !     Flat bottom BC : set to zero
-            bhm(:,:,jpk) = 0._wp 
-            !     Variable bathymetry case: diffusive fluxes masked in dyn_ldf_bgm
 
             !--------------------------------