/[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 278 by guez, Thu Jul 12 17:53:18 2018 UTC revision 304 by guez, Thu Sep 6 15:51:09 2018 UTC
# Line 36  program test_ozonecm Line 36  program test_ozonecm
36    REAL qsol(klon) ! column-density of water in soil, in kg m-2    REAL qsol(klon) ! column-density of water in soil, in kg m-2
37    REAL snow(klon, nbsrf)    REAL snow(klon, nbsrf)
38    REAL albe(klon, nbsrf)    REAL albe(klon, nbsrf)
   REAL evap(klon, nbsrf)  
39    REAL rain_fall(klon)    REAL rain_fall(klon)
40    REAL snow_fall(klon)    REAL snow_fall(klon)
41    real solsw(klon)    real solsw(klon)
# Line 77  program test_ozonecm Line 76  program test_ozonecm
76    pa = 5e4    pa = 5e4
77    call disvert    call disvert
78    p = ap + bp * preff    p = ap + bp * preff
79    call phyetat0(pctsrf, ftsol, ftsoil, qsurf, qsol, snow, albe, evap, &    call phyetat0(pctsrf, ftsol, ftsoil, qsurf, qsol, snow, albe, rain_fall, &
80         rain_fall, snow_fall, solsw, sollw, fder, radsol, frugs, agesno, zmea, &         snow_fall, solsw, sollw, fder, radsol, frugs, agesno, zmea, zstd, zsig, &
81         zstd, zsig, zgam, zthe, zpic, zval, t_ancien, q_ancien, ancien_ok, &         zgam, zthe, zpic, zval, t_ancien, q_ancien, ancien_ok, rnebcon, ratqs, &
82         rnebcon, ratqs, clwcon, run_off_lic_0, sig1, w01, ncid_startphy)         clwcon, run_off_lic_0, sig1, w01, ncid_startphy)
83    
84    do julien = 1, 360    do julien = 1, 360
85       wo(:, :, julien) = ozonecm(REAL(julien), spread(p, dim=1, ncopies=jjm+1))       wo(:, :, julien) = ozonecm(REAL(julien), spread(p, dim=1, ncopies=jjm+1))
Legend:
Removed from v.278  
changed lines
  Added in v.304
  ViewVC Help
Powered by ViewVC 1.1.21