source: LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_call_blowing_snow.F90 @ 5137

Last change on this file since 5137 was 5119, checked in by abarral, 15 months ago

enforce PRIVATE by default in several modules, expose PUBLIC as needed
move eigen.f90 to obsolete/
(lint) aslong the way
File size: 1.1 KB
Line 
1module lmdz_call_blowing_snow
2
3CONTAINS
4
5SUBROUTINE call_blowing_snow_sublim_sedim(ngrid,nlay,dtime,temp,q,qbs,pplay,paprs, &
6                                  dtemp_bs,dq_bs,dqbs_bs,bsfl,precip_bs)
7
8USE lmdz_blowing_snow_sublim_sedim, ONLY: blowing_snow_sublim_sedim
9IMPLICIT NONE
10
11!INPUT
12!=====
13
14INTEGER, INTENT(IN)                     :: ngrid,nlay
15REAL, INTENT(IN)                        :: dtime
16REAL, INTENT(IN), DIMENSION(ngrid,nlay) :: temp
17REAL, INTENT(IN), DIMENSION(ngrid,nlay) :: q
18REAL, INTENT(IN), DIMENSION(ngrid,nlay) :: qbs
19REAL, INTENT(IN), DIMENSION(ngrid,nlay) :: pplay
20REAL, INTENT(IN), DIMENSION(ngrid,nlay+1) :: paprs
21
22
23! OUTPUT
24!========
25
26
27REAL, INTENT(OUT), DIMENSION(ngrid,nlay) :: dtemp_bs
28REAL, INTENT(OUT), DIMENSION(ngrid,nlay) :: dq_bs
29REAL, INTENT(OUT), DIMENSION(ngrid,nlay) :: dqbs_bs
30REAL, INTENT(OUT), DIMENSION(ngrid,nlay+1) :: bsfl
31REAL, INTENT(OUT), DIMENSION(ngrid)      :: precip_bs
32
33     
34
35
36CALL blowing_snow_sublim_sedim(ngrid,nlay,dtime,temp,q,qbs,pplay,paprs, &
37                                  dtemp_bs,dq_bs,dqbs_bs,bsfl,precip_bs)
38
39
40
41
42
43END SUBROUTINE  call_blowing_snow_sublim_sedim
44
45END MODULE lmdz_call_blowing_snow
Note: See TracBrowser for help on using the repository browser.