Changeset 449 for LMDZ.3.3/branches/rel-LF/libf/phylmd

Timestamp:

Jan 27, 2003, 4:40:29 PM (22 years ago)

Author:

lmdzadmin

Message:

Oublie de remplacer fqsol par qsol dans l'appel de phyetat0 IM

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

@@ -749 +749 @@
 c
          CALL phyetat0 ("startphy.nc",dtime,co2_ppm_etat0,solaire_etat0,
-     .       rlat,rlon,pctsrf, ftsol,ftsoil,deltat,fqsurf,fqsol,fsnow,
+     .       rlat,rlon,pctsrf, ftsol,ftsoil,deltat,fqsurf,qsol,fsnow,
      .       falbe, fevap, rain_fall,snow_fall,solsw, sollwdown,
      .       dlw,radsol,frugs,agesno,clesphy0,