From 6f7ff5a9470d41cae7537bc87714be10932a555a Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Thu, 21 Nov 2019 12:54:32 +0100 Subject: [PATCH] Philippe 21/11/2019: initialize some variables (to prevent error detections with Mppdb_check) --- src/MNH/turb.f90 | 2 +- src/MNH/turb_ver_thermo_flux.f90 | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90 index 3cf06ade7..921cdd662 100644 --- a/src/MNH/turb.f90 +++ b/src/MNH/turb.f90 @@ -610,7 +610,7 @@ IF (HTURBLEN=='BL89' .OR. HTURBLEN=='RM17' .OR. ORMC01) THEN ZRM(:,:,:,:) = PRT(:,:,:,:) END IF ! -! +ZTRH(:, :, : ) = XUNDEF ! !---------------------------------------------------------------------------- ! diff --git a/src/MNH/turb_ver_thermo_flux.f90 b/src/MNH/turb_ver_thermo_flux.f90 index b5b7355ce..770c4cf96 100644 --- a/src/MNH/turb_ver_thermo_flux.f90 +++ b/src/MNH/turb_ver_thermo_flux.f90 @@ -794,6 +794,7 @@ ZFLXZ(:,:,KKA) = ZFLXZ(:,:,IKB) PWTH(:,:,IKB)=0.5*(ZFLXZ(:,:,IKB)+ZFLXZ(:,:,IKB+KKL)) PWTH(:,:,KKA)=0.5*(ZFLXZ(:,:,KKA)+ZFLXZ(:,:,KKA+KKL)) PWTH(:,:,IKE)=PWTH(:,:,IKE-KKL) + PWTH(:, :, IKE + 1 : ) = XUNDEF !$acc end kernels ! IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN @@ -1193,6 +1194,7 @@ IF (KRR /= 0) THEN PWRC(:,:,IKB)=0.5*(ZFLXZ(:,:,IKB)+ZFLXZ(:,:,IKB+KKL)) PWRC(:,:,KKA)=0.5*(ZFLXZ(:,:,KKA)+ZFLXZ(:,:,KKA+KKL)) PWRC(:,:,IKE)=PWRC(:,:,IKE-KKL) + PWRC(:, :, IKE + 1 : ) = XUNDEF !$acc end kernels ! ! -- GitLab