/[lmdze]/trunk/Sources/phylmd/phyredem.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/phyredem.f

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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 99 by guez, Wed Jul 2 18:39:15 2014 UTC
# Line 23  contains Line 23  contains
23           nf95_def_var, nf95_enddef, nf95_redef, nf95_put_var, nf95_close           nf95_def_var, nf95_enddef, nf95_redef, nf95_put_var, nf95_close
24      USE temps, ONLY: itau_phy      USE temps, ONLY: itau_phy
25    
26      CHARACTER(len=*) fichnom      CHARACTER(len=*), INTENT(IN):: fichnom
27      REAL, INTENT(IN):: rlat(klon), rlon(klon)      REAL, INTENT(IN):: rlat(klon), rlon(klon)
28      REAL, INTENT(IN):: pctsrf(klon, nbsrf)      REAL, INTENT(IN):: pctsrf(klon, nbsrf)
29      REAL tsol(klon, nbsrf)      REAL, INTENT(IN):: tsol(:, :) ! (klon, nbsrf)
30      REAL tsoil(klon, nsoilmx, nbsrf)      REAL, INTENT(IN):: tsoil(:, :, :) ! (klon, nsoilmx, nbsrf)
31      REAL tslab(klon), seaice(klon) !IM "slab" ocean      REAL, INTENT(IN):: tslab(:), seaice(:) ! (klon) slab ocean
32      REAL qsurf(klon, nbsrf)      REAL, INTENT(IN):: qsurf(:, :) ! (klon, nbsrf)
33      REAL, intent(in):: qsol(klon)      REAL, intent(in):: qsol(:) ! (klon)
34      REAL snow(klon, nbsrf)      REAL, INTENT(IN):: snow(klon, nbsrf)
35      REAL albedo(klon, nbsrf)      REAL, INTENT(IN):: albedo(klon, nbsrf)
36      REAL alblw(klon, nbsrf)      REAL, INTENT(IN):: alblw(klon, nbsrf)
37      REAL evap(klon, nbsrf)      REAL, INTENT(IN):: evap(klon, nbsrf)
38      REAL, INTENT(IN):: rain_fall(klon)      REAL, INTENT(IN):: rain_fall(klon)
39      REAL snow_fall(klon)      REAL, INTENT(IN):: snow_fall(klon)
40      REAL solsw(klon)      REAL, INTENT(IN):: solsw(klon)
41      REAL, INTENT(IN):: sollw(klon)      REAL, INTENT(IN):: sollw(klon)
42      REAL fder(klon)      REAL, INTENT(IN):: fder(klon)
43      REAL radsol(klon)      REAL, INTENT(IN):: radsol(klon)
44      REAL frugs(klon, nbsrf)      REAL, INTENT(IN):: frugs(klon, nbsrf)
45      REAL agesno(klon, nbsrf)      REAL, INTENT(IN):: agesno(klon, nbsrf)
46      REAL, INTENT(IN):: zmea(klon)      REAL, INTENT(IN):: zmea(klon)
47      REAL, intent(in):: zstd(klon)      REAL, intent(in):: zstd(klon)
48      REAL, intent(in):: zsig(klon)      REAL, intent(in):: zsig(klon)
49      REAL zgam(klon)      REAL, intent(in):: zgam(klon)
50      REAL zthe(klon)      REAL, intent(in):: zthe(klon)
51      REAL zpic(klon)      REAL, intent(in):: zpic(klon)
52      REAL zval(klon)      REAL, intent(in):: zval(klon)
53      REAL t_ancien(klon, klev), q_ancien(klon, klev)      REAL, intent(in):: t_ancien(klon, klev), q_ancien(klon, klev)
54      REAL rnebcon(klon, klev), ratqs(klon, klev), clwcon(klon, klev)      REAL, intent(in):: rnebcon(klon, klev), ratqs(klon, klev)
55      REAL run_off_lic_0(klon)      REAL, intent(in):: clwcon(klon, klev)
56        REAL, intent(in):: run_off_lic_0(klon)
57      real, intent(in):: sig1(klon, klev) ! section adiabatic updraft      real, intent(in):: sig1(klon, klev) ! section adiabatic updraft
58    
59      real, intent(in):: w01(klon, klev)      real, intent(in):: w01(klon, klev)
Legend:
Removed from v.82  
changed lines
  Added in v.99
  ViewVC Help
Powered by ViewVC 1.1.21