/[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 330 by guez, Wed Jul 31 14:55:23 2019 UTC revision 331 by guez, Wed Jul 31 17:10:31 2019 UTC
# Line 63  contains Line 63  contains
63    
64      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
65      REAL qsolsrf(klon, nbsrf), fsnow(klon, nbsrf)      REAL qsolsrf(klon, nbsrf), fsnow(klon, nbsrf)
66      REAL albe(klon, nbsrf)      REAL falbe(klon, nbsrf)
67      REAL tsoil(klon, nsoilmx, nbsrf)      REAL tsoil(klon, nsoilmx, nbsrf)
68      REAL null_array(klon)      REAL null_array(klon)
69      REAL solsw(klon), sollw(klon)      REAL solsw(klon), sollw(klon)
# Line 278  contains Line 278  contains
278    
279      ! Initialisations :      ! Initialisations :
280      fsnow = 0.      fsnow = 0.
281      albe(:, is_ter) = 0.08      falbe(:, is_ter) = 0.08
282      albe(:, is_lic) = 0.6      falbe(:, is_lic) = 0.6
283      albe(:, is_oce) = 0.5      falbe(:, is_oce) = 0.5
284      albe(:, is_sic) = 0.6      falbe(:, is_sic) = 0.6
285      qsolsrf = 150.      qsolsrf = 150.
286      tsoil = spread(spread(pack(tsol_2d, dyn_phy), 2, nsoilmx), 3, nbsrf)      tsoil = spread(spread(pack(tsol_2d, dyn_phy), 2, nsoilmx), 3, nbsrf)
287      solsw = 165.      solsw = 165.
# Line 307  contains Line 307  contains
307      call nf95_put_var(ncid_restartphy, varid, null_array)      call nf95_put_var(ncid_restartphy, varid, null_array)
308    
309      call phyredem(pctsrf, tsoil(:, 1, :), tsoil, qsolsrf, &      call phyredem(pctsrf, tsoil(:, 1, :), tsoil, qsolsrf, &
310           pack(qsol_2d, dyn_phy), fsnow, albe, null_array, null_array, solsw, &           pack(qsol_2d, dyn_phy), fsnow, falbe, null_array, null_array, solsw, &
311           sollw, null_array, null_array, frugs, agesno, zmea, zstd, zsig, zgam, &           sollw, null_array, null_array, frugs, agesno, zmea, zstd, zsig, zgam, &
312           zthe, zpic, zval, t_ancien, q_ancien, rnebcon, ratqs, clwcon, &           zthe, zpic, zval, t_ancien, q_ancien, rnebcon, ratqs, clwcon, &
313           null_array, sig1, w01)           null_array, sig1, w01)
Legend:
Removed from v.330  
changed lines
  Added in v.331
  ViewVC Help
Powered by ViewVC 1.1.21