source: LMDZ.3.3/trunk/libf/phylmd/stdlevvar_int.F90 @ 3670

Last change on this file since 3670 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: 644 bytes
Line 
1MODULE stdlevvar_int
2
3  IMPLICIT NONE
4
5  INTERFACE
6
7    SUBROUTINE stdlevvar(klon, knon, nsrf, zxli, &
8                         u1, v1, t1, q1, z1, &
9                         ts1, qsurf, rugos, psol, pat1, &
10                         t_2m, q_2m, u_10m)
11      INTEGER, intent(in) :: klon, knon, nsrf
12      LOGICAL, intent(in) :: zxli
13      REAL, dimension(klon), intent(in) :: u1, v1, t1, q1, z1, ts1
14      REAL, dimension(klon), intent(in) :: qsurf, rugos
15      REAL, dimension(klon), intent(in) :: psol, pat1
16      REAL, dimension(klon), intent(out) :: t_2m, q_2m, u_10m
17    END SUBROUTINE stdlevvar
18
19  END INTERFACE
20
21END MODULE stdlevvar_int
Note: See TracBrowser for help on using the repository browser.