/[lmdze]/trunk/phylmd/Interface_surf/pbl_surface.f
ViewVC logotype

Diff of /trunk/phylmd/Interface_surf/pbl_surface.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 307 by guez, Tue Sep 11 12:52:28 2018 UTC revision 308 by guez, Tue Sep 18 15:14:40 2018 UTC
# Line 130  contains Line 130  contains
130      ! albedo du sol total, visible, moyen par maille      ! albedo du sol total, visible, moyen par maille
131    
132      REAL, intent(in):: sollw(:) ! (klon)      REAL, intent(in):: sollw(:) ! (klon)
133      ! rayonnement infrarouge montant \`a la surface      ! surface net downward longwave flux, in W m-2
134            
135      REAL, intent(in):: solsw(:) ! (klon)      REAL, intent(in):: solsw(:) ! (klon)
136      REAL, intent(in):: tsol(:) ! (klon)      REAL, intent(in):: tsol(:) ! (klon)
# Line 156  contains Line 156  contains
156      real yqsol(klon) ! column-density of water in soil, in kg m-2      real yqsol(klon) ! column-density of water in soil, in kg m-2
157      REAL yrain_fall(klon) ! liquid water mass flux (kg / m2 / s), positive down      REAL yrain_fall(klon) ! liquid water mass flux (kg / m2 / s), positive down
158      REAL ysnow_fall(klon) ! solid water mass flux (kg / m2 / s), positive down      REAL ysnow_fall(klon) ! solid water mass flux (kg / m2 / s), positive down
159      REAL yrugm(klon), yrads(klon), yrugoro(klon)      REAL yrugm(klon), radsol(klon), yrugoro(klon)
160      REAL yfluxlat(klon)      REAL yfluxlat(klon)
161      REAL y_d_ts(klon)      REAL y_d_ts(klon)
162      REAL y_d_t(klon, klev), y_d_q(klon, klev)      REAL y_d_t(klon, klev), y_d_q(klon, klev)
# Line 287  contains Line 287  contains
287               yagesno(j) = agesno(i, nsrf)               yagesno(j) = agesno(i, nsrf)
288               yrugos(j) = frugs(i, nsrf)               yrugos(j) = frugs(i, nsrf)
289               yrugoro(j) = rugoro(i)               yrugoro(j) = rugoro(i)
290               yrads(j) = fsolsw(i, nsrf) + fsollw(i, nsrf)               radsol(j) = fsolsw(i, nsrf) + fsollw(i, nsrf)
291               ypaprs(j, klev + 1) = paprs(i, klev + 1)               ypaprs(j, klev + 1) = paprs(i, klev + 1)
292               y_run_off_lic_0(j) = run_off_lic_0(i)               y_run_off_lic_0(j) = run_off_lic_0(i)
293            END DO            END DO
# Line 356  contains Line 356  contains
356                 mu0(ni(:knon)), yrugos(:knon), yrugoro(:knon), yu(:knon, 1), &                 mu0(ni(:knon)), yrugos(:knon), yrugoro(:knon), yu(:knon, 1), &
357                 yv(:knon, 1), ycoefh(:knon, :), ycdragh(:knon), yt(:knon, :), &                 yv(:knon, 1), ycoefh(:knon, :), ycdragh(:knon), yt(:knon, :), &
358                 yq(:knon, :), yts(:knon), ypaprs(:knon, :), ypplay(:knon, :), &                 yq(:knon, :), yts(:knon), ypaprs(:knon, :), ypplay(:knon, :), &
359                 ydelp(:knon, :), yrads(:knon), yalb(:knon), snow(:knon), &                 ydelp(:knon, :), radsol(:knon), yalb(:knon), snow(:knon), &
360                 yqsurf(:knon), yrain_fall(:knon), ysnow_fall(:knon), &                 yqsurf(:knon), yrain_fall(:knon), ysnow_fall(:knon), &
361                 yfluxlat(:knon), pctsrf_new_sic(ni(:knon)), yagesno(:knon), &                 yfluxlat(:knon), pctsrf_new_sic(ni(:knon)), yagesno(:knon), &
362                 y_d_t(:knon, :), y_d_q(:knon, :), y_d_ts(:knon), &                 y_d_t(:knon, :), y_d_q(:knon, :), y_d_ts(:knon), &
Legend:
Removed from v.307  
changed lines
  Added in v.308
  ViewVC Help
Powered by ViewVC 1.1.21