From d31b4429d6c7b4f74bbaea2fdd20ffb52a05e588 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Thu, 24 Aug 2023 10:17:26 +0200
Subject: [PATCH] Quentin 24/08/2023: bugfix DST structure instead of
NDST%AL(1) otherwise some variables are not defined (example : EMISSIG_DST in
coupling_seafluxn > mode_dslt_surf)
---
src/SURFEX/coupling_surf_atm_multi_level_n.F90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/SURFEX/coupling_surf_atm_multi_level_n.F90 b/src/SURFEX/coupling_surf_atm_multi_level_n.F90
index c2930cd89..c820885d1 100644
--- a/src/SURFEX/coupling_surf_atm_multi_level_n.F90
+++ b/src/SURFEX/coupling_surf_atm_multi_level_n.F90
@@ -696,7 +696,7 @@ ENDDO
!
IF (KTILE==1) THEN
!
- CALL COUPLING_SEA_n(YSC%SM, YSC%DLO, YSC%DL, YSC%DLC, YSC%U, YSC%NDST%AL(1), YSC%SLT, &
+ CALL COUPLING_SEA_n(YSC%SM, YSC%DLO, YSC%DL, YSC%DLC, YSC%U, YSC%DST, YSC%SLT, &
HPROGRAM, HCOUPLING, PTIMEC, PTSTEP, KYEAR, KMONTH, KDAY, PTIME, &
YSC%U%NSIZE_SEA, KSV, KSW, ZP_TSUN, ZP_ZENITH, ZP_ZENITH2,ZP_AZIM, &
ZP_ZREF(:,1), ZP_UREF(:,1), ZP_ZS, ZP_U(:,1), ZP_V(:,1), ZP_QA(:,1), &
@@ -718,7 +718,7 @@ IF (KTILE==1) THEN
ELSEIF (KTILE==2) THEN
!
CALL COUPLING_INLAND_WATER_n(YSC%FM, YSC%WM, YSC%DLO, YSC%DL, YSC%DLC, YSC%U, &
- YSC%NDST%AL(1), YSC%SLT, HPROGRAM, HCOUPLING, PTIMEC, PTSTEP, &
+ YSC%DST, YSC%SLT, HPROGRAM, HCOUPLING, PTIMEC, PTSTEP, &
KYEAR, KMONTH, KDAY, PTIME, YSC%U%NSIZE_WATER, KSV, KSW, &
ZP_TSUN, ZP_ZENITH, ZP_ZENITH2, ZP_AZIM, ZP_ZREF(:,1), &
ZP_UREF(:,1), ZP_ZS, ZP_U(:,1), ZP_V(:,1), ZP_QA(:,1), &
@@ -761,7 +761,7 @@ ELSEIF (KTILE==3) THEN
!
ELSEIF (KTILE==4) THEN
!
- CALL COUPLING_TOWN_n(YSC%DTCO, YSC%U, YSC%DLO, YSC%DL, YSC%DLC, YSC%NDST%AL(1), YSC%SLT, YSC%TM, &
+ CALL COUPLING_TOWN_n(YSC%DTCO, YSC%U, YSC%DLO, YSC%DL, YSC%DLC, YSC%DST, YSC%SLT, YSC%TM, &
YSC%GDM, YSC%GRM, YSC%HM, HPROGRAM, HCOUPLING, PTIMEC, PTSTEP, KYEAR, KMONTH,&
KDAY, PTIME, YSC%U%NSIZE_TOWN, KSV, KSW, KLEV, ZP_TSUN, ZP_ZENITH, ZP_AZIM, &
ZP_ZREF, ZP_UREF, ZP_ZS, ZP_U, ZP_V, ZP_QA, ZP_TA, ZP_RHOA, ZP_SV, ZP_CO2, &
--
GitLab