14 |
use dimensions, only: jjm, llm |
use dimensions, only: jjm, llm |
15 |
USE dimphy, ONLY : klon |
USE dimphy, ONLY : klon |
16 |
USE dimsoil, ONLY : nsoilmx |
USE dimsoil, ONLY : nsoilmx |
17 |
use disvert_m, only: pa, disvert, ap, bp, preff, presnivs |
use disvert_m, only: disvert, ap, bp, preff, presnivs |
18 |
|
use dynetat0_chosen_m, only: read_serre |
19 |
USE indicesol, ONLY : nbsrf |
USE indicesol, ONLY : nbsrf |
20 |
use ozonecm_m, only: ozonecm |
use ozonecm_m, only: ozonecm |
21 |
use phyetat0_m, only: rlat, phyetat0 |
use phyetat0_m, only: rlat, phyetat0 |
74 |
call set_unit_nml |
call set_unit_nml |
75 |
open(unit_nml, file="used_namelists.txt", status="replace", action="write") |
open(unit_nml, file="used_namelists.txt", status="replace", action="write") |
76 |
|
|
77 |
pa = 5e4 |
call read_serre |
78 |
call disvert |
call disvert |
79 |
p = ap + bp * preff |
p = ap + bp * preff |
80 |
call phyetat0(pctsrf, ftsol, ftsoil, qsurf, qsol, snow, albe, rain_fall, & |
call phyetat0(pctsrf, ftsol, ftsoil, qsurf, qsol, snow, albe, rain_fall, & |