source: LMDZ.3.3/trunk/libf/phylmd/coefcdrag_int.F90 @ 485

Last change on this file since 485 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: 672 bytes
Line 
1MODULE coefcdrag_int
2
3  IMPLICIT NONE
4
5  INTERFACE
6 
7    SUBROUTINE coefcdrag (klon, knon, nsrf, zxli, &
8                          speed, t, q, zgeop, psol, &
9                          ts, qsurf, rugos, okri, ri1, &
10                          cdram, cdrah, cdran, zri1, pref)
11      INTEGER, intent(in) :: klon, knon, nsrf
12      LOGICAL, intent(in) :: zxli
13      REAL, dimension(klon), intent(in) :: speed, t, q, zgeop, psol
14      REAL, dimension(klon), intent(in) :: ts, qsurf, rugos, ri1
15      LOGICAL, intent(in) :: okri
16      REAL, dimension(klon), intent(out) :: cdram, cdrah, cdran, zri1, pref
17
18    END SUBROUTINE coefcdrag
19
20  END INTERFACE
21
22END MODULE coefcdrag_int
Note: See TracBrowser for help on using the repository browser.