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

Last change on this file since 5151 was 5119, checked in by abarral, 2 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.