Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_noz0h_mod.F90

    r3102 r3568  
    440440    IF (knon > 0) THEN
    441441#ifdef CPP_VEGET   
     442
    442443       CALL intersurf_main (itime+itau_phy, nbp_lon, nbp_lat, knon, ktindex, dtime,  &
    443444            lrestart_read, lrestart_write, lalo, &
     
    448449            evap(1:knon), fluxsens(1:knon), fluxlat(1:knon), coastalflow(1:knon), riverflow(1:knon), &
    449450            tsol_rad(1:knon), tsurf_new(1:knon), qsurf(1:knon), albedo_out(1:knon,:), emis_new(1:knon), z0_new(1:knon), &
    450             lon_scat, lat_scat, q2m, t2m, coszang=yrmu0(1:knon))
     451            lon_scat, lat_scat, q2m(1:knon), t2m(1:knon), coszang=yrmu0(1:knon))
    451452#endif       
    452453    ENDIF
Note: See TracChangeset for help on using the changeset viewer.