/[lmdze]/trunk/phylmd/Interface_surf/albsno.f90
ViewVC logotype

Diff of /trunk/phylmd/Interface_surf/albsno.f90

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

revision 328 by guez, Thu Jun 13 14:40:06 2019 UTC revision 331 by guez, Wed Jul 31 17:10:31 2019 UTC
# Line 10  contains Line 10  contains
10    
11      use comconst, only: dtphys      use comconst, only: dtphys
12    
13      REAL, intent(inout):: agesno(:) ! (knon)      REAL, intent(inout):: agesno(:) ! (knon) age of snow, in days
14      real, intent(out):: alb_neig(:) ! (knon)      real, intent(out):: alb_neig(:) ! (knon)
15      real, intent(in):: snow_fall(:) !(knon)      real, intent(in):: snow_fall(:) !(knon)
16    
# Line 20  contains Line 20  contains
20      alb_neig = 0.55 + 0.3 * EXP(- agesno / 5.)      alb_neig = 0.55 + 0.3 * EXP(- agesno / 5.)
21    
22      ! Modulation en fonction de l'\^age de la neige :      ! Modulation en fonction de l'\^age de la neige :
23      agesno = max((agesno + (1. - agesno / 50.) * dtphys / 86400.) &      agesno = (agesno + (1. - agesno / 50.) * dtphys / 86400.) &
24           * EXP(- MAX(0., snow_fall) * dtphys / 0.3), 0.)           * EXP(- snow_fall * dtphys / 0.3)
25    
26    END SUBROUTINE albsno    END SUBROUTINE albsno
27    
Legend:
Removed from v.328  
changed lines
  Added in v.331
  ViewVC Help
Powered by ViewVC 1.1.21