Changeset 3568 for LMDZ6/trunk/libf

Timestamp:

Sep 24, 2019, 12:48:43 PM (5 years ago)

Author:

Laurent Fairhead

Message:

Needed for debug options of newest versions of gfortran compiler

File:

• LMDZ6/trunk/libf/phylmd/surf_land_orchidee_noz0h_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/surf_land_orchidee_noz0h_mod.F90

@@ -440 +440 @@
     IF (knon > 0) THEN
 #ifdef CPP_VEGET    
+
        CALL intersurf_main (itime+itau_phy, nbp_lon, nbp_lat, knon, ktindex, dtime,  &
             lrestart_read, lrestart_write, lalo, &
@@ -448 +449 @@
             evap(1:knon), fluxsens(1:knon), fluxlat(1:knon), coastalflow(1:knon), riverflow(1:knon), &
             tsol_rad(1:knon), tsurf_new(1:knon), qsurf(1:knon), albedo_out(1:knon,:), emis_new(1:knon), z0_new(1:knon), &
-            lon_scat, lat_scat, q2m, t2m, coszang=yrmu0(1:knon))
+            lon_scat, lat_scat, q2m(1:knon), t2m(1:knon), coszang=yrmu0(1:knon))
 #endif       
     ENDIF