/[lmdze]/trunk/Sources/phylmd/clmain.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/clmain.f

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

revision 154 by guez, Tue Jul 7 17:49:23 2015 UTC revision 155 by guez, Wed Jul 8 17:03:45 2015 UTC
# Line 6  contains Line 6  contains
6    
7    SUBROUTINE clmain(dtime, itap, pctsrf, pctsrf_new, t, q, u, v, jour, rmu0, &    SUBROUTINE clmain(dtime, itap, pctsrf, pctsrf_new, t, q, u, v, jour, rmu0, &
8         co2_ppm, ts, cdmmax, cdhmax, ksta, ksta_ter, ok_kzmin, ftsoil, qsol, &         co2_ppm, ts, cdmmax, cdhmax, ksta, ksta_ter, ok_kzmin, ftsoil, qsol, &
9         paprs, pplay, snow, qsurf, evap, albe, alblw, fluxlat, rain_fall, &         paprs, pplay, snow, qsurf, evap, falbe, fluxlat, rain_fall, snow_f, &
10         snow_f, solsw, sollw, fder, rlat, rugos, debut, agesno, rugoro, d_t, &         solsw, sollw, fder, rlat, rugos, debut, agesno, rugoro, d_t, d_q, d_u, &
11         d_q, d_u, d_v, d_ts, flux_t, flux_q, flux_u, flux_v, cdragh, cdragm, &         d_v, d_ts, flux_t, flux_q, flux_u, flux_v, cdragh, cdragm, q2, &
12         q2, dflux_t, dflux_q, ycoefh, zu1, zv1, t2m, q2m, u10m, v10m, pblh, &         dflux_t, dflux_q, ycoefh, zu1, zv1, t2m, q2m, u10m, v10m, pblh, capcl, &
13         capcl, oliqcl, cteicl, pblt, therm, trmb1, trmb2, trmb3, plcl, &         oliqcl, cteicl, pblt, therm, trmb1, trmb2, trmb3, plcl, fqcalving, &
14         fqcalving, ffonte, run_off_lic_0, flux_o, flux_g, tslab)         ffonte, run_off_lic_0, flux_o, flux_g, tslab)
15    
16      ! From phylmd/clmain.F, version 1.6, 2005/11/16 14:47:19      ! From phylmd/clmain.F, version 1.6, 2005/11/16 14:47:19
17      ! Author: Z. X. Li (LMD/CNRS), date: 1993/08/18      ! Author: Z. X. Li (LMD/CNRS), date: 1993/08/18
# Line 73  contains Line 73  contains
73      REAL snow(klon, nbsrf)      REAL snow(klon, nbsrf)
74      REAL qsurf(klon, nbsrf)      REAL qsurf(klon, nbsrf)
75      REAL evap(klon, nbsrf)      REAL evap(klon, nbsrf)
76      REAL albe(klon, nbsrf)      REAL, intent(inout):: falbe(klon, nbsrf)
     REAL alblw(klon, nbsrf)  
77    
78      REAL fluxlat(klon, nbsrf)      REAL fluxlat(klon, nbsrf)
79    
# Line 172  contains Line 171  contains
171    
172      REAL yts(klon), yrugos(klon), ypct(klon), yz0_new(klon)      REAL yts(klon), yrugos(klon), ypct(klon), yz0_new(klon)
173      REAL yalb(klon)      REAL yalb(klon)
     REAL yalblw(klon)  
174      REAL yu1(klon), yv1(klon)      REAL yu1(klon), yv1(klon)
175      ! on rajoute en output yu1 et yv1 qui sont les vents dans      ! on rajoute en output yu1 et yv1 qui sont les vents dans
176      ! la premiere couche      ! la premiere couche
# Line 282  contains Line 280  contains
280      yts = 0.      yts = 0.
281      ysnow = 0.      ysnow = 0.
282      yqsurf = 0.      yqsurf = 0.
     yalb = 0.  
283      yrain_f = 0.      yrain_f = 0.
284      ysnow_f = 0.      ysnow_f = 0.
285      yfder = 0.      yfder = 0.
# Line 352  contains Line 349  contains
349               ytslab(i) = tslab(i)               ytslab(i) = tslab(i)
350               ysnow(j) = snow(i, nsrf)               ysnow(j) = snow(i, nsrf)
351               yqsurf(j) = qsurf(i, nsrf)               yqsurf(j) = qsurf(i, nsrf)
352               yalb(j) = albe(i, nsrf)               yalb(j) = falbe(i, nsrf)
353               yrain_f(j) = rain_fall(i)               yrain_f(j) = rain_fall(i)
354               ysnow_f(j) = snow_f(i)               ysnow_f(j) = snow_f(i)
355               yagesno(j) = agesno(i, nsrf)               yagesno(j) = agesno(i, nsrf)
# Line 478  contains Line 475  contains
475            CALL clqh(dtime, itap, jour, debut, rlat, knon, nsrf, ni(:knon), &            CALL clqh(dtime, itap, jour, debut, rlat, knon, nsrf, ni(:knon), &
476                 pctsrf, ytsoil, yqsol, rmu0, co2_ppm, yrugos, yrugoro, yu1, &                 pctsrf, ytsoil, yqsol, rmu0, co2_ppm, yrugos, yrugoro, yu1, &
477                 yv1, coefh(:knon, :), yt, yq, yts, ypaprs, ypplay, ydelp, &                 yv1, coefh(:knon, :), yt, yq, yts, ypaprs, ypplay, ydelp, &
478                 yrads, yalb, yalblw(:knon), ysnow, yqsurf, yrain_f, ysnow_f, &                 yrads, yalb(:knon), ysnow, yqsurf, yrain_f, ysnow_f, yfder, &
479                 yfder, ysolsw, yfluxlat, pctsrf_new, yagesno, y_d_t, y_d_q, &                 ysolsw, yfluxlat, pctsrf_new, yagesno, y_d_t, y_d_q, &
480                 y_d_ts(:knon), yz0_new, y_flux_t, y_flux_q, y_dflux_t, &                 y_d_ts(:knon), yz0_new, y_flux_t, y_flux_q, y_dflux_t, &
481                 y_dflux_q, y_fqcalving, y_ffonte, y_run_off_lic_0, y_flux_o, &                 y_dflux_q, y_fqcalving, y_ffonte, y_run_off_lic_0, y_flux_o, &
482                 y_flux_g)                 y_flux_g)
# Line 518  contains Line 515  contains
515    
516            evap(:, nsrf) = -flux_q(:, 1, nsrf)            evap(:, nsrf) = -flux_q(:, 1, nsrf)
517    
518            albe(:, nsrf) = 0.            falbe(:, nsrf) = 0.
           alblw(:, nsrf) = 0.  
519            snow(:, nsrf) = 0.            snow(:, nsrf) = 0.
520            qsurf(:, nsrf) = 0.            qsurf(:, nsrf) = 0.
521            rugos(:, nsrf) = 0.            rugos(:, nsrf) = 0.
# Line 527  contains Line 523  contains
523            DO j = 1, knon            DO j = 1, knon
524               i = ni(j)               i = ni(j)
525               d_ts(i, nsrf) = y_d_ts(j)               d_ts(i, nsrf) = y_d_ts(j)
526               albe(i, nsrf) = yalb(j)               falbe(i, nsrf) = yalb(j)
              alblw(i, nsrf) = yalblw(j)  
527               snow(i, nsrf) = ysnow(j)               snow(i, nsrf) = ysnow(j)
528               qsurf(i, nsrf) = yqsurf(j)               qsurf(i, nsrf) = yqsurf(j)
529               rugos(i, nsrf) = yz0_new(j)               rugos(i, nsrf) = yz0_new(j)
Legend:
Removed from v.154  
changed lines
  Added in v.155
  ViewVC Help
Powered by ViewVC 1.1.21