From 8cc0775d71a3e50ad17633ef5c8e875afa680329 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 30 Nov 2021 10:25:03 +0100
Subject: [PATCH] Philippe 30/11/2021: minifix: problem with & characters at
end of declarations (Cray compiler)
---
src/MNH/modn_param_ecradn.f90 | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/MNH/modn_param_ecradn.f90 b/src/MNH/modn_param_ecradn.f90
index 9d168f330..600cfd21f 100644
--- a/src/MNH/modn_param_ecradn.f90
+++ b/src/MNH/modn_param_ecradn.f90
@@ -84,16 +84,16 @@ CHARACTER(LEN=4), SAVE :: SURF_TYPE
!
NAMELIST/NAM_PARAM_ECRADn/NSWSOLVER,NLWSOLVER,NRADLP,NRADIP,&
NLIQOPT,NICEOPT,NOVLP,NGAS,NREG,XCLOUD_FRAC_STD,&
- NLWSCATTERING, NAERMACC &
#ifndef MNH_ECRAD
- &
+ NLWSCATTERING, NAERMACC
#else
#if ( VER_ECRAD == 140 )
- , LSPEC_ALB, LSPEC_EMISS, &
+ NLWSCATTERING, NAERMACC, &
+ LSPEC_ALB, LSPEC_EMISS, &
! USER_ALB_DIFF, USER_ALB_DIR, USER_EMISS, &
SURF_TYPE
#else
- &
+ NLWSCATTERING, NAERMACC
#endif
#endif
!
--
GitLab