/[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 328 by guez, Thu Jun 13 14:40:06 2019 UTC revision 330 by guez, Wed Jul 31 14:55:23 2019 UTC
# Line 62  contains Line 62  contains
62      ! and pressure level "pls(i, j, l)".)      ! and pressure level "pls(i, j, l)".)
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), snsrf(klon, nbsrf)      REAL qsolsrf(klon, nbsrf), fsnow(klon, nbsrf)
66      REAL albe(klon, nbsrf)      REAL albe(klon, nbsrf)
67      REAL tsoil(klon, nsoilmx, nbsrf)      REAL tsoil(klon, nsoilmx, nbsrf)
68      REAL null_array(klon)      REAL null_array(klon)
# Line 277  contains Line 277  contains
277      CALL dynredem1(vcov, ucov, teta, q, masse, ps, itau = 0)      CALL dynredem1(vcov, ucov, teta, q, masse, ps, itau = 0)
278    
279      ! Initialisations :      ! Initialisations :
280      snsrf = 0.      fsnow = 0.
281      albe(:, is_ter) = 0.08      albe(:, is_ter) = 0.08
282      albe(:, is_lic) = 0.6      albe(:, is_lic) = 0.6
283      albe(:, is_oce) = 0.5      albe(:, is_oce) = 0.5
# 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), snsrf, albe, null_array, null_array, solsw, &           pack(qsol_2d, dyn_phy), fsnow, albe, 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.328  
changed lines
  Added in v.330
  ViewVC Help
Powered by ViewVC 1.1.21