Changeset 1015


Ignore:
Timestamp:
Oct 20, 2008, 5:53:19 PM (16 years ago)
Author:
lsce
Message:
  • Ajoute de initialisation a zero pour 2 variables qui ne sont pas calcule dans le cas de Tietke.
  • Copure des lignes trop longues
  • Correction de nom pour 2 variables

JG

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/physiq.F

    r1001 r1015  
    19461946     s            pmfu, pmfd, pen_u, pde_u, pen_d, pde_d,
    19471947     s            kcbot, kctop, kdtop, pmflxr, pmflxs)
     1948      d_u_con = 0.
     1949      d_v_con = 0.
     1950
    19481951      WHERE (rain_con < 0.) rain_con = 0.
    19491952      WHERE (snow_con < 0.) snow_con = 0.
     
    27202723
    27212724         IF (config_inca == 'aero') THEN
    2722             CALL AEROSOL_METEO_CALC(calday,pdtphys,pplay,paprs,t,pmflxr,pmflxs
    2723      &           ,prfl,psfl,pctsrf,airephy,xjour,rlat,rlon,u10m,v10m)
     2725            CALL AEROSOL_METEO_CALC(
     2726     $           calday,pdtphys,pplay,paprs,t,pmflxr,pmflxs,
     2727     $           prfl,psfl,pctsrf,airephy,xjour,rlat,rlon,u10m,v10m)
    27242728         END IF
    27252729
     
    28222826      CALL radlwsw_inca
    28232827     e            (kdlon,kflev,dist, rmu0, fract, solaire,
    2824      e             paprs, pplay,zxtsol,albsol, albsollw, t_seri,q_seri,
     2828     e             paprs, pplay,zxtsol,albsol1, albsol2, t_seri,q_seri,
    28252829     e             wo,
    28262830     e             cldfra, cldemi, cldtau,
     
    32483252     $                        pphis,
    32493253     $                        zx_rh)
    3250      $                        xjour)
    32513254
    32523255         CALL VTe(VTinca)
Note: See TracChangeset for help on using the changeset viewer.