35 |
use histclo_m, only: histclo |
use histclo_m, only: histclo |
36 |
use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra |
use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra |
37 |
use iniadvtrac_m, only: iniadvtrac |
use iniadvtrac_m, only: iniadvtrac |
|
use inidissip_m, only: inidissip |
|
38 |
use inifilr_m, only: inifilr |
use inifilr_m, only: inifilr |
39 |
use inigeom_m, only: inigeom |
use inigeom_m, only: inigeom |
40 |
use massdair_m, only: massdair |
use massdair_m, only: massdair |
111 |
REAL w(ip1jmp1, llm) |
REAL w(ip1jmp1, llm) |
112 |
REAL phystep |
REAL phystep |
113 |
|
|
114 |
|
real sig1(klon, llm) ! section adiabatic updraft |
115 |
|
real w01(klon, llm) ! vertical velocity within adiabatic updraft |
116 |
|
|
117 |
!--------------------------------- |
!--------------------------------- |
118 |
|
|
119 |
print *, "Call sequence information: etat0" |
print *, "Call sequence information: etat0" |
303 |
|
|
304 |
! Initialisation pour traceurs: |
! Initialisation pour traceurs: |
305 |
call iniadvtrac |
call iniadvtrac |
|
CALL inidissip |
|
306 |
itau_phy = 0 |
itau_phy = 0 |
307 |
day_ref = dayref |
day_ref = dayref |
308 |
annee_ref = anneeref |
annee_ref = anneeref |
358 |
rnebcon = 0. |
rnebcon = 0. |
359 |
ratqs = 0. |
ratqs = 0. |
360 |
run_off_lic_0 = 0. |
run_off_lic_0 = 0. |
361 |
|
sig1 = 0. |
362 |
|
w01 = 0. |
363 |
|
|
364 |
call phyredem("startphy.nc", latfi, lonfi, pctsrf, & |
call phyredem("startphy.nc", latfi, lonfi, pctsrf, & |
365 |
tsolsrf, tsoil, tslab, seaice, qsolsrf, qsol, snsrf, albe, alblw, & |
tsolsrf, tsoil, tslab, seaice, qsolsrf, qsol, snsrf, albe, alblw, & |
366 |
evap, rain_fall, snow_fall, solsw, sollw, fder, radsol, frugs, & |
evap, rain_fall, snow_fall, solsw, sollw, fder, radsol, frugs, & |
367 |
agesno, zmea, zstd, zsig, zgam, zthe, zpic, zval, & |
agesno, zmea, zstd, zsig, zgam, zthe, zpic, zval, & |
368 |
t_ancien, q_ancien, rnebcon, ratqs, clwcon, run_off_lic_0) |
t_ancien, q_ancien, rnebcon, ratqs, clwcon, run_off_lic_0, sig1, w01) |
369 |
CALL histclo |
CALL histclo |
370 |
|
|
371 |
END SUBROUTINE etat0 |
END SUBROUTINE etat0 |