/[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 117 by guez, Tue Sep 9 12:54:30 2014 UTC revision 118 by guez, Thu Dec 18 17:30:24 2014 UTC
# Line 61  contains Line 61  contains
61      REAL, INTENT(IN):: cdmmax, cdhmax ! seuils cdrm, cdrh      REAL, INTENT(IN):: cdmmax, cdhmax ! seuils cdrm, cdrh
62      REAL, INTENT(IN):: ksta, ksta_ter      REAL, INTENT(IN):: ksta, ksta_ter
63      LOGICAL, INTENT(IN):: ok_kzmin      LOGICAL, INTENT(IN):: ok_kzmin
64      REAL ftsoil(klon, nsoilmx, nbsrf)  
65        REAL, INTENT(inout):: ftsoil(klon, nsoilmx, nbsrf)
66        ! soil temperature of surface fraction
67    
68      REAL, INTENT(inout):: qsol(klon)      REAL, INTENT(inout):: qsol(klon)
69      ! column-density of water in soil, in kg m-2      ! column-density of water in soil, in kg m-2
# Line 475  contains Line 477  contains
477                 ypplay, ydelp, y_d_v, y_flux_v)                 ypplay, ydelp, y_d_v, y_flux_v)
478    
479            ! calculer la diffusion de "q" et de "h"            ! calculer la diffusion de "q" et de "h"
480            CALL clqh(dtime, itap, jour, debut, rlat, knon, nsrf, ni(:knon), pctsrf, &            CALL clqh(dtime, itap, jour, debut, rlat, knon, nsrf, ni(:knon), &
481                 ytsoil, yqsol, rmu0, co2_ppm, yrugos, yrugoro, yu1, yv1, &                 pctsrf, ytsoil, yqsol, rmu0, co2_ppm, yrugos, yrugoro, yu1, &
482                 coefh(:knon, :), yt, yq, yts, ypaprs, ypplay, ydelp, yrads, &                 yv1, coefh(:knon, :), yt, yq, yts, ypaprs, ypplay, ydelp, &
483                 yalb, yalblw, ysnow, yqsurf, yrain_f, ysnow_f, yfder, ysolsw, &                 yrads, yalb, yalblw, ysnow, yqsurf, yrain_f, ysnow_f, yfder, &
484                 yfluxlat, pctsrf_new, yagesno, y_d_t, y_d_q, y_d_ts(:knon), &                 ysolsw, yfluxlat, pctsrf_new, yagesno, y_d_t, y_d_q, &
485                 yz0_new, y_flux_t, y_flux_q, y_dflux_t, y_dflux_q, &                 y_d_ts(:knon), yz0_new, y_flux_t, y_flux_q, y_dflux_t, &
486                 y_fqcalving, y_ffonte, y_run_off_lic_0, y_flux_o, y_flux_g)                 y_dflux_q, y_fqcalving, y_ffonte, y_run_off_lic_0, y_flux_o, &
487                   y_flux_g)
488    
489            ! calculer la longueur de rugosite sur ocean            ! calculer la longueur de rugosite sur ocean
490            yrugm = 0.            yrugm = 0.
# Line 554  contains Line 557  contains
557                  run_off_lic_0(i) = y_run_off_lic_0(j)                  run_off_lic_0(i) = y_run_off_lic_0(j)
558               END DO               END DO
559            END IF            END IF
560            !$$$ PB ajout pour soil  
561            ftsoil(:, :, nsrf) = 0.            ftsoil(:, :, nsrf) = 0.
562            DO k = 1, nsoilmx            DO k = 1, nsoilmx
563               DO j = 1, knon               DO j = 1, knon

Legend:
Removed from v.117  
changed lines
  Added in v.118

  ViewVC Help
Powered by ViewVC 1.1.21