Changeset 1071 for LMDZ4/trunk/libf


Ignore:
Timestamp:
Jan 11, 2009, 11:40:07 PM (16 years ago)
Author:
Laurent Fairhead
Message:

Mauvaise integration des modifications faites sous cvs
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/clcdrag.F90

    r1067 r1071  
    2727! pcfh---output-R- cdrag pour les flux de chaleur latente et sensible
    2828!
    29       INTEGER, intent(in) :: klon, knon, nsrf
    30       LOGICAL, intent(in) :: zxli
    31       REAL, intent(in), dimension(klon) :: u, v, t, q, zgeop
    32       REAL, intent(in), dimension(klon) :: ts, qsurf
    33       REAL, intent(in), dimension(klon) :: rugos
    34       REAL, intent(out), dimension(klon) :: pcfm, pcfh
     29  INTEGER, INTENT(IN)                      :: knon, nsrf
     30  REAL, DIMENSION(klon,klev+1), INTENT(IN) :: paprs
     31  REAL, DIMENSION(klon,klev), INTENT(IN)   :: pplay
     32  REAL, DIMENSION(klon), INTENT(IN)        :: u1, v1, t1, q1
     33  REAL, DIMENSION(klon), INTENT(IN)        :: tsurf, qsurf
     34  REAL, DIMENSION(klon), INTENT(IN)        :: rugos
     35  REAL, DIMENSION(klon), INTENT(OUT)       :: pcfm, pcfh
     36!
    3537! ================================================================= c
    3638!
    37       INCLUDE "YOMCST.h"
    38       INCLUDE "YOETHF.h"
    39       INCLUDE "indicesol.h"
     39  INCLUDE "YOMCST.h"
     40  INCLUDE "YOETHF.h"
     41  INCLUDE "indicesol.h"
     42  INCLUDE "clesphys.h"
    4043!
    4144! Quelques constantes et options:
Note: See TracChangeset for help on using the changeset viewer.