source: LMDZ.3.3/trunk/libf/phylmd/screenpc_int.F90 @ 1024

Last change on this file since 1024 was 416, checked in by lmdzadmin, 22 years ago

Inclusion initiale
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.4 KB
Line 
1MODULE screenpc_int
2
3  IMPLICIT NONE
4
5  INTERFACE
6
7    SUBROUTINE screenp(klon, knon, nsrf, &
8     &                 speed, tair, qair, &
9     &                 ts, qsurf, rugos, lmon, &
10     &                 ustar, testar, qstar, zref, &
11     &                 delu, delte, delq)
12      INTEGER, intent(in) :: klon, knon, nsrf
13      REAL, dimension(klon), intent(in) :: speed, tair, qair
14      REAL, dimension(klon), intent(in) :: ts, qsurf, rugos
15      DOUBLE PRECISION, dimension(klon), intent(in) :: lmon
16      REAL, dimension(klon), intent(in) :: ustar, testar, qstar
17      REAL, intent(in) :: zref
18      REAL, dimension(klon), intent(out) :: delu, delte, delq
19    END SUBROUTINE screenp
20
21    SUBROUTINE screenc(klon, knon, nsrf, zxli, &
22     &                 speed, temp, q_zref, zref, &
23     &                 ts, qsurf, rugos, psol, &
24     &                 ustar, testar, qstar, okri, ri1, &
25     &                 pref, delu, delte, delq)
26      INTEGER, intent(in) :: klon, knon, nsrf
27      LOGICAL, intent(in) :: zxli, okri
28      REAL, dimension(klon), intent(in) :: speed, temp, q_zref
29      REAL, intent(in) :: zref
30      REAL, dimension(klon), intent(in) :: ts, qsurf, rugos, psol
31      REAL, dimension(klon), intent(in) :: ustar, testar, qstar, ri1
32      REAL, dimension(klon), intent(out) :: pref, delu, delte, delq
33
34    END SUBROUTINE screenc
35
36  END INTERFACE
37
38END MODULE screenpc_int
Note: See TracBrowser for help on using the repository browser.