From a3912c20189d2421ce3887e85179dd3d2274b19d Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Fri, 17 Mar 2023 13:49:45 +0100
Subject: [PATCH] Quentin 17/03/2023: bugfix OCEAN_LES (remove print of
variable at JSW not defined)
---
src/MNH/phys_paramn.f90 | 7 +------
1 file changed, 1 insertion(+), 6 deletions(-)
diff --git a/src/MNH/phys_paramn.f90 b/src/MNH/phys_paramn.f90
index 280d9dd03..5f8927f2a 100644
--- a/src/MNH/phys_paramn.f90
+++ b/src/MNH/phys_paramn.f90
@@ -239,6 +239,7 @@ END MODULE MODI_PHYS_PARAM_n
! JL Redelsperger 03/2021: add the SW flux penetration for Ocean model case
! P. Wautelet 30/11/2022: compute XTHW_FLUX, XRCW_FLUX and XSVW_FLUX only when needed
! A. Costes 12/2021: add Blaze fire model
+! Q. Rodier 2022: integration with PHYEX
!!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -870,12 +871,6 @@ IF (LOCEAN) THEN
ZIZOCE(IKU) = XSSOLA_T(JSW+1)*(1.-ZSWA)+XSSOLA_T(JSW+2)*ZSWA
ZPROSOL1(IKU) = CST%XROC*ZIZOCE(IKU)
ZPROSOL2(IKU) = (1.-CST%XROC)*ZIZOCE(IKU)
- IF(NVERB >= 5 ) THEN
-! WRITE(ILUOUT,*)'ZSWA JSW TDTCUR XTSTEP FT FU FV SolarR(IKU)', NINFRT, ZSWA,JSW,&
-! TDTCUR%xtime, XTSTEP, ZSFTH(2,2), ZSFU(2,2),ZSFV(2,2),ZIZOCE(IKU)
- WRITE(ILUOUT,*)'XSSTP1,XSSTP,NINFRT,ZSWA,JSW,TDTCUR%xtime,ZSFT', &
- XSSTFL_T(JSW+1),XSSTFL_T(JSW),NINFRT,ZSWA,JSW, TDTCUR%xtime,ZSFTH(2,2)
- END IF
if ( TBUCONF%LBUDGET_th ) call Budget_store_init( TBUDGETS(NBUDGET_TH), 'OCEAN', xrths(:, :, :) )
DO JKM=IKU-1,2,-1
ZPROSOL1(JKM) = ZPROSOL1(JKM+1)* exp(-XDZZ(2,2,JKM)/CST%XD1)
--
GitLab