Juan 24/11/2015: split line to long or type mismatch for gfortran
authorJuan Escobar <juan.escobar@aero.obs-mip.fr>
Tue, 24 Nov 2015 16:49:47 +0000 (16:49 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/SURFEX/pgd_grid_io_init.F90
src/SURFEX/read_covers_and_av_pgd_on_layers.F90
src/SURFEX/split_grid_conf_proj.F90
src/SURFEX/zoom_pgd_cover.F90

index 594e1ba..f3b31ef 100644 (file)
@@ -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
index 220e086..c0eeb80 100644 (file)
@@ -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
index 9c19c33..b638909 100644 (file)
@@ -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
index 67f2576..c7c5d58 100644 (file)
@@ -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
 !------------------------------------------------------------------------------