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" |
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 |