/[lmdze]/trunk/phylmd/test_ozonecm.f
ViewVC logotype

Diff of /trunk/phylmd/test_ozonecm.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 304 by guez, Thu Sep 6 15:51:09 2018 UTC revision 313 by guez, Mon Dec 10 15:54:30 2018 UTC
# Line 14  program test_ozonecm Line 14  program test_ozonecm
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
# Line 73  program test_ozonecm Line 74  program test_ozonecm
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, &
Legend:
Removed from v.304  
changed lines
  Added in v.313
  ViewVC Help
Powered by ViewVC 1.1.21