/[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 331 by guez, Wed Jul 31 17:10:31 2019 UTC revision 332 by guez, Tue Aug 13 09:19:22 2019 UTC
# Line 1  Line 1 
1  module albsno_m  module albsno_m
2    
   ! From phylmd/interface_surf.F90, version 1.8 2005/05/25 13:10:09  
   
3    IMPLICIT none    IMPLICIT none
4    
5  contains  contains
6    
7    SUBROUTINE albsno(agesno, alb_neig, snow_fall)    SUBROUTINE albsno(agesno, alb_neig, snow_fall)
8    
9        ! From phylmd/interface_surf.F90, version 1.8 2005/05/25 13:10:09
10    
11      use comconst, only: dtphys      use comconst, only: dtphys
12    
13      REAL, intent(inout):: agesno(:) ! (knon) age of snow, in days      REAL, intent(inout):: agesno(:) ! (knon) age of snow, in days
14      real, intent(out):: alb_neig(:) ! (knon)      real, intent(out):: alb_neig(:) ! (knon)
15    
16      real, intent(in):: snow_fall(:) !(knon)      real, intent(in):: snow_fall(:) !(knon)
17        ! precipitation, solid water mass flux (kg / m2 / s), positive down
18    
19      !------------------------------------------------------------------------      !------------------------------------------------------------------------
20    
Legend:
Removed from v.331  
changed lines
  Added in v.332
  ViewVC Help
Powered by ViewVC 1.1.21