From bf624ea0af6e16bee17d92ffb0d73a7a39b6d128 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Tue, 24 Nov 2015 16:49:47 +0000
Subject: [PATCH] Juan 24/11/2015: split line to long or type mismatch for
gfortran
---
src/SURFEX/pgd_grid_io_init.F90 | 2 +-
src/SURFEX/read_covers_and_av_pgd_on_layers.F90 | 6 ++++--
src/SURFEX/split_grid_conf_proj.F90 | 2 +-
src/SURFEX/zoom_pgd_cover.F90 | 2 +-
4 files changed, 7 insertions(+), 5 deletions(-)
diff --git a/src/SURFEX/pgd_grid_io_init.F90 b/src/SURFEX/pgd_grid_io_init.F90
index 594e1ba39..f3b31ef0f 100644
--- a/src/SURFEX/pgd_grid_io_init.F90
+++ b/src/SURFEX/pgd_grid_io_init.F90
@@ -159,7 +159,7 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK('PGD_GRID_IO_INIT',0,ZHOOK_HANDLE)
IF (HPROGRAM=='MESONH') THEN
#ifdef MNH_PARALLEL
- IF ( PRESENT(KIMAX) .AND. PRESENT(KJMAX) .AND. PRESENT(HGRID) .AND. PRESENT(ORECT) \
+ IF ( PRESENT(KIMAX) .AND. PRESENT(KJMAX) .AND. PRESENT(HGRID) .AND. PRESENT(ORECT) &
.AND. PRESENT(KDXRATIO) .AND. PRESENT(KDYRATIO) ) THEN
CALL PGD_GRID_IO_INIT_MNH(KGRID_PAR,PGRID_PAR,HGRID,ORECT,KIMAX,KJMAX,KDXRATIO,KDYRATIO)
ELSE
diff --git a/src/SURFEX/read_covers_and_av_pgd_on_layers.F90 b/src/SURFEX/read_covers_and_av_pgd_on_layers.F90
index 220e086ee..c0eeb805e 100644
--- a/src/SURFEX/read_covers_and_av_pgd_on_layers.F90
+++ b/src/SURFEX/read_covers_and_av_pgd_on_layers.F90
@@ -152,9 +152,11 @@ DO JLAYER=1,KDATA_LAYER
CASE('STR')
ZWEIGHT=XDATA_TOWN (JCOVER) * ( 1. - XDATA_BLD(JCOVER) )
CASE('TRE')
- ZWEIGHT=XDATA_NATURE(JCOVER) * ( XDATA_VEGTYPE(JCOVER,NVT_TREE) + XDATA_VEGTYPE(JCOVER,NVT_EVER) + XDATA_VEGTYPE(JCOVER,NVT_CONI) )
+ ZWEIGHT=XDATA_NATURE(JCOVER) * ( XDATA_VEGTYPE(JCOVER,NVT_TREE) &
+ + XDATA_VEGTYPE(JCOVER,NVT_EVER) + XDATA_VEGTYPE(JCOVER,NVT_CONI) )
CASE('GRT')
- ZWEIGHT=XDATA_TOWN(JCOVER) * XDATA_GARDEN(JCOVER) * ( XDATA_VEGTYPE(JCOVER,NVT_TREE) + XDATA_VEGTYPE(JCOVER,NVT_EVER) + XDATA_VEGTYPE(JCOVER,NVT_CONI) )
+ ZWEIGHT=XDATA_TOWN(JCOVER) * XDATA_GARDEN(JCOVER) * ( XDATA_VEGTYPE(JCOVER,NVT_TREE) &
+ + XDATA_VEGTYPE(JCOVER,NVT_EVER) + XDATA_VEGTYPE(JCOVER,NVT_CONI) )
CASE DEFAULT
CALL ABOR1_SFX('AV_PGD_1D: WEIGHTING FUNCTION NOT ALLOWED '//HSFTYPE)
END SELECT
diff --git a/src/SURFEX/split_grid_conf_proj.F90 b/src/SURFEX/split_grid_conf_proj.F90
index 9c19c33a1..b638909be 100644
--- a/src/SURFEX/split_grid_conf_proj.F90
+++ b/src/SURFEX/split_grid_conf_proj.F90
@@ -74,7 +74,7 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
!* original grid
REAL :: ZLAT0, ZLON0, ZRPK, ZBETA, ZLATOR, ZLONOR
INTEGER :: IIMAX, IJMAX
-REAL, DIMENSION(PGRID_PAR(11)) :: ZX, ZY, ZDX, ZDY
+REAL, DIMENSION(INT(PGRID_PAR(11))) :: ZX, ZY, ZDX, ZDY
!
!* splitted grid on processor
INTEGER :: IIMAX_SPLIT, IJMAX_SPLIT
diff --git a/src/SURFEX/zoom_pgd_cover.F90 b/src/SURFEX/zoom_pgd_cover.F90
index 67f25764d..c7c5d58a0 100644
--- a/src/SURFEX/zoom_pgd_cover.F90
+++ b/src/SURFEX/zoom_pgd_cover.F90
@@ -97,7 +97,7 @@ REAL, DIMENSION(:,:), POINTER :: ZCOVER
REAL, DIMENSION(:,:), POINTER :: ZSEA1, ZWATER1, ZNATURE1, ZTOWN1
REAL, DIMENSION(:,:), POINTER :: ZSEA2, ZWATER2, ZNATURE2, ZTOWN2
REAL, DIMENSION(:), ALLOCATABLE :: ZSUM
-CHARACTER(LEN=12) :: YRECFM ! Name of the article to be read
+CHARACTER(LEN=16) :: YRECFM ! Name of the article to be read
CHARACTER(LEN=100) :: YCOMMENT
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!------------------------------------------------------------------------------
--
GitLab