/[lmdze]/trunk/Sources/dyn3d/etat0.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/etat0.f

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

revision 138 by guez, Fri May 22 23:13:19 2015 UTC revision 156 by guez, Thu Jul 16 17:39:10 2015 UTC
# Line 19  contains Line 19  contains
19    
20      use caldyn0_m, only: caldyn0      use caldyn0_m, only: caldyn0
21      use comconst, only: cpp, kappa, iniconst      use comconst, only: cpp, kappa, iniconst
22      use comgeom, only: rlatu, rlonv, rlonu, rlatv, aire_2d, apoln, apols, &      use comgeom, only: aire_2d, apoln, apols, cu_2d, cv_2d, inigeom
          cu_2d, cv_2d, inigeom  
23      use dimens_m, only: iim, jjm, llm, nqmx      use dimens_m, only: iim, jjm, llm, nqmx
24      use dimphy, only: zmasq      use dimphy, only: zmasq
25      use dimsoil, only: nsoilmx      use dimsoil, only: nsoilmx
26      use disvert_m, only: ap, bp, preff, pa, disvert      use disvert_m, only: ap, bp, preff, pa, disvert
27      use dynetat0_m, only: day_ref, annee_ref      use dynetat0_m, only: day_ref, annee_ref, xprimp025, xprimm025, rlatu1, &
28             rlatu2, rlatu, rlatv, yprimu1, yprimu2, rlonu, rlonv, xprimu, xprimv
29      use dynredem0_m, only: dynredem0      use dynredem0_m, only: dynredem0
30      use dynredem1_m, only: dynredem1      use dynredem1_m, only: dynredem1
31      use exner_hyb_m, only: exner_hyb      use exner_hyb_m, only: exner_hyb
32        use fxhyp_m, only: fxhyp
33        use fyhyp_m, only: fyhyp
34      use geopot_m, only: geopot      use geopot_m, only: geopot
35      use grid_atob, only: grille_m      use grid_atob, only: grille_m
36      use grid_change, only: init_dyn_phy, dyn_phy      use grid_change, only: init_dyn_phy, dyn_phy
# Line 71  contains Line 73  contains
73      REAL sn(klon)      REAL sn(klon)
74      REAL qsolsrf(klon, nbsrf), snsrf(klon, nbsrf)      REAL qsolsrf(klon, nbsrf), snsrf(klon, nbsrf)
75      REAL albe(klon, nbsrf), evap(klon, nbsrf)      REAL albe(klon, nbsrf), evap(klon, nbsrf)
     REAL alblw(klon, nbsrf)  
76      REAL tsoil(klon, nsoilmx, nbsrf)      REAL tsoil(klon, nsoilmx, nbsrf)
77      REAL radsol(klon), rain_fall(klon), snow_fall(klon)      REAL radsol(klon), rain_fall(klon), snow_fall(klon)
78      REAL solsw(klon), sollw(klon), fder(klon)      REAL solsw(klon), sollw(klon), fder(klon)
# Line 136  contains Line 137  contains
137      pa = 5e4      pa = 5e4
138      CALL disvert      CALL disvert
139      call test_disvert      call test_disvert
140    
141        CALL fyhyp(rlatu, rlatv, rlatu2, yprimu2, rlatu1, yprimu1)
142        CALL fxhyp(xprimm025, rlonv, xprimv, rlonu, xprimu, xprimp025)
143    
144        rlatu(1) = pi / 2.
145        rlatu(jjm + 1) = -rlatu(1)
146    
147      CALL inigeom      CALL inigeom
148      CALL inifilr      CALL inifilr
149    
# Line 323  contains Line 331  contains
331      albe(:, is_lic) = 0.6      albe(:, is_lic) = 0.6
332      albe(:, is_oce) = 0.5      albe(:, is_oce) = 0.5
333      albe(:, is_sic) = 0.6      albe(:, is_sic) = 0.6
     alblw = albe  
334      evap = 0.      evap = 0.
335      qsolsrf = 150.      qsolsrf = 150.
336      tsoil = spread(spread(pack(tsol_2d, dyn_phy), 2, nsoilmx), 3, nbsrf)      tsoil = spread(spread(pack(tsol_2d, dyn_phy), 2, nsoilmx), 3, nbsrf)
# Line 350  contains Line 357  contains
357    
358      call phyredem("startphy.nc", pctsrf, tsoil(:, 1, :), tsoil, &      call phyredem("startphy.nc", pctsrf, tsoil(:, 1, :), tsoil, &
359           tsoil(:, 1, is_oce), seaice, qsolsrf, pack(qsol_2d, dyn_phy), snsrf, &           tsoil(:, 1, is_oce), seaice, qsolsrf, pack(qsol_2d, dyn_phy), snsrf, &
360           albe, alblw, evap, rain_fall, snow_fall, solsw, sollw, fder, radsol, &           albe, evap, rain_fall, snow_fall, solsw, sollw, fder, radsol, frugs, &
361           frugs, agesno, zmea, zstd, zsig, zgam, zthe, zpic, zval, t_ancien, &           agesno, zmea, zstd, zsig, zgam, zthe, zpic, zval, t_ancien, &
362           q_ancien, rnebcon, ratqs, clwcon, run_off_lic_0, sig1, w01)           q_ancien, rnebcon, ratqs, clwcon, run_off_lic_0, sig1, w01)
363    
364    END SUBROUTINE etat0    END SUBROUTINE etat0
Legend:
Removed from v.138  
changed lines
  Added in v.156
  ViewVC Help
Powered by ViewVC 1.1.21