25 |
|
|
26 |
! Jean-Louis Dufresne, July 2002 |
! Jean-Louis Dufresne, July 2002 |
27 |
|
|
28 |
use dimens_m |
USE dimphy, ONLY: klev, klon |
29 |
use dimphy |
USE suphec_m, ONLY: rcpd, rcpv, rcs, rcw, rg, rlstt, rlvtt |
|
use SUPHEC_M |
|
|
use yoethf_m |
|
30 |
|
|
31 |
! Arguments: |
! Arguments: |
32 |
! airephy-------input-R- grid area |
! airephy-------input-R- grid area |
|
! tit-----imput-A15- Comment added in PRINT (CHARACTER*15) |
|
33 |
! iprt----input-I- PRINT level ( <=1 : no PRINT) |
! iprt----input-I- PRINT level ( <=1 : no PRINT) |
34 |
! idiag---input-I- indice dans lequel sera range les nouveaux |
! idiag---input-I- indice dans lequel sera range les nouveaux |
35 |
! bilans d' entalpie et de masse |
! bilans d' entalpie et de masse |
64 |
|
|
65 |
! Input variables |
! Input variables |
66 |
real airephy(klon) |
real airephy(klon) |
67 |
CHARACTER(len=15) tit |
CHARACTER(len=*), intent(in):: tit ! comment added in PRINT |
68 |
INTEGER iprt, idiag, idiag2 |
INTEGER iprt, idiag, idiag2 |
69 |
REAL, intent(in):: dtime |
REAL, intent(in):: dtime |
70 |
REAL, intent(in):: t(klon, klev) |
REAL, intent(in):: t(klon, klev) |