From d662cc51926618dc1fd7cc062d172cffb506435b Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Thu, 18 Nov 2021 14:08:50 +0100
Subject: [PATCH] Juan 18/11/2021:mode_mg_read_param.f90, Pb detected with
crayftn compiler => format(L6) -> (I6)
(cherry picked from commit fbb500d79524ea4e9725680b562f2231beefce6b)
---
.../tensorproductmultigrid_Source/mode_mg_read_param.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/mode_mg_read_param.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/mode_mg_read_param.f90
index b0f0181c7..3ec13931a 100644
--- a/src/ZSOLVER/tensorproductmultigrid_Source/mode_mg_read_param.f90
+++ b/src/ZSOLVER/tensorproductmultigrid_Source/mode_mg_read_param.f90
@@ -448,7 +448,7 @@ subroutine read_multigrid_parameters(filename,mg_param)
write(STDOUT,NML=parameters_multigrid)
write(STDOUT,'("---------------------------------------------- ")')
write(STDOUT,'("Multigrid parameters")')
- write(STDOUT,'(" verbose = ",L6)') verbose
+ write(STDOUT,'(" verbose = ",I6)') verbose
write(STDOUT,'(" levels = ",I3)') n_lev
write(STDOUT,'(" splitlevel = ",I3)') lev_split
!
--
GitLab