/[lmdze]/trunk/dyn3d/etat0.f90
ViewVC logotype

Diff of /trunk/dyn3d/etat0.f90

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

revision 302 by guez, Thu Sep 6 13:19:51 2018 UTC revision 304 by guez, Thu Sep 6 15:51:09 2018 UTC
# Line 64  contains Line 64  contains
64    
65      real qsat(iim + 1, jjm + 1, llm) ! mass fraction of saturating water vapor      real qsat(iim + 1, jjm + 1, llm) ! mass fraction of saturating water vapor
66      REAL qsolsrf(klon, nbsrf), snsrf(klon, nbsrf)      REAL qsolsrf(klon, nbsrf), snsrf(klon, nbsrf)
67      REAL albe(klon, nbsrf), evap(klon, nbsrf)      REAL albe(klon, nbsrf)
68      REAL tsoil(klon, nsoilmx, nbsrf)      REAL tsoil(klon, nsoilmx, nbsrf)
69      REAL null_array(klon)      REAL null_array(klon)
70      REAL solsw(klon), sollw(klon)      REAL solsw(klon), sollw(klon)
# Line 290  contains Line 290  contains
290      albe(:, is_lic) = 0.6      albe(:, is_lic) = 0.6
291      albe(:, is_oce) = 0.5      albe(:, is_oce) = 0.5
292      albe(:, is_sic) = 0.6      albe(:, is_sic) = 0.6
     evap = 0.  
293      qsolsrf = 150.      qsolsrf = 150.
294      tsoil = spread(spread(pack(tsol_2d, dyn_phy), 2, nsoilmx), 3, nbsrf)      tsoil = spread(spread(pack(tsol_2d, dyn_phy), 2, nsoilmx), 3, nbsrf)
295      solsw = 165.      solsw = 165.
# Line 316  contains Line 315  contains
315      call nf95_put_var(ncid_restartphy, varid, null_array)      call nf95_put_var(ncid_restartphy, varid, null_array)
316    
317      call phyredem(pctsrf, tsoil(:, 1, :), tsoil, qsolsrf, &      call phyredem(pctsrf, tsoil(:, 1, :), tsoil, qsolsrf, &
318           pack(qsol_2d, dyn_phy), snsrf, albe, evap, null_array, null_array, &           pack(qsol_2d, dyn_phy), snsrf, albe, null_array, null_array, solsw, &
319           solsw, sollw, null_array, null_array, frugs, agesno, zmea, zstd, &           sollw, null_array, null_array, frugs, agesno, zmea, zstd, zsig, zgam, &
320           zsig, zgam, zthe, zpic, zval, t_ancien, q_ancien, rnebcon, ratqs, &           zthe, zpic, zval, t_ancien, q_ancien, rnebcon, ratqs, clwcon, &
321           clwcon, null_array, sig1, w01)           null_array, sig1, w01)
322    
323    END SUBROUTINE etat0    END SUBROUTINE etat0
324    
Legend:
Removed from v.302  
changed lines
  Added in v.304
  ViewVC Help
Powered by ViewVC 1.1.21