47 |
USE histcom, ONLY : histbeg_totreg, histdef, histend, histsync |
USE histcom, ONLY : histbeg_totreg, histdef, histend, histsync |
48 |
use histwrite_m, only: histwrite |
use histwrite_m, only: histwrite |
49 |
USE indicesol, ONLY : epsfra, is_lic, is_oce, is_sic, is_ter, nbsrf |
USE indicesol, ONLY : epsfra, is_lic, is_oce, is_sic, is_ter, nbsrf |
50 |
USE iniprint, ONLY : prt_level |
USE conf_gcm_m, ONLY : prt_level |
51 |
USE suphec_m, ONLY : rd, rg, rkappa |
USE suphec_m, ONLY : rd, rg, rkappa |
52 |
USE temps, ONLY : annee_ref, itau_phy |
USE temps, ONLY : annee_ref, itau_phy |
53 |
use yamada4_m, only: yamada4 |
use yamada4_m, only: yamada4 |
59 |
! date0----input-R- jour initial |
! date0----input-R- jour initial |
60 |
INTEGER, INTENT (IN) :: itap |
INTEGER, INTENT (IN) :: itap |
61 |
! itap-----input-I- numero du pas de temps |
! itap-----input-I- numero du pas de temps |
62 |
REAL t(klon, klev), q(klon, klev) |
REAL, INTENT(IN):: t(klon, klev), q(klon, klev) |
63 |
! t--------input-R- temperature (K) |
! t--------input-R- temperature (K) |
64 |
! q--------input-R- vapeur d'eau (kg/kg) |
! q--------input-R- vapeur d'eau (kg/kg) |
65 |
REAL, INTENT (IN):: u(klon, klev), v(klon, klev) |
REAL, INTENT (IN):: u(klon, klev), v(klon, klev) |