--- trunk/Sources/phylmd/physiq.f 2015/05/06 15:51:03 137 +++ trunk/Sources/phylmd/physiq.f 2015/06/18 13:49:26 150 @@ -1325,8 +1325,8 @@ ENDDO CALL drag_noro(klon, llm, dtphys, paprs, play, zmea, zstd, zsig, zgam, & - zthe, zpic, zval, igwd, idx, itest, t_seri, u_seri, v_seri, & - zulow, zvlow, zustrdr, zvstrdr, d_t_oro, d_u_oro, d_v_oro) + zthe, zpic, zval, itest, t_seri, u_seri, v_seri, zulow, zvlow, & + zustrdr, zvstrdr, d_t_oro, d_u_oro, d_v_oro) ! ajout des tendances DO k = 1, llm @@ -1475,11 +1475,11 @@ ! Si c'est la fin, il faut conserver l'etat de redemarrage IF (lafin) THEN itau_phy = itau_phy + itap - CALL phyredem("restartphy.nc", rlat, rlon, pctsrf, ftsol, ftsoil, & - tslab, seaice, fqsurf, qsol, fsnow, falbe, falblw, fevap, & - rain_fall, snow_fall, solsw, sollw, dlw, radsol, frugs, & - agesno, zmea, zstd, zsig, zgam, zthe, zpic, zval, t_ancien, & - q_ancien, rnebcon, ratqs, clwcon, run_off_lic_0, sig1, w01) + CALL phyredem("restartphy.nc", pctsrf, ftsol, ftsoil, tslab, seaice, & + fqsurf, qsol, fsnow, falbe, falblw, fevap, rain_fall, snow_fall, & + solsw, sollw, dlw, radsol, frugs, agesno, zmea, zstd, zsig, zgam, & + zthe, zpic, zval, t_ancien, q_ancien, rnebcon, ratqs, clwcon, & + run_off_lic_0, sig1, w01) ENDIF firstcal = .FALSE.