/[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 70 by guez, Mon Jun 24 15:39:52 2013 UTC revision 72 by guez, Tue Jul 23 13:00:07 2013 UTC
# Line 35  contains Line 35  contains
35      use histclo_m, only: histclo      use histclo_m, only: histclo
36      use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra      use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra
37      use iniadvtrac_m, only: iniadvtrac      use iniadvtrac_m, only: iniadvtrac
     use inidissip_m, only: inidissip  
38      use inifilr_m, only: inifilr      use inifilr_m, only: inifilr
39      use inigeom_m, only: inigeom      use inigeom_m, only: inigeom
40      use massdair_m, only: massdair      use massdair_m, only: massdair
# Line 112  contains Line 111  contains
111      REAL w(ip1jmp1, llm)      REAL w(ip1jmp1, llm)
112      REAL phystep      REAL phystep
113    
114        real sig1(klon, llm) ! section adiabatic updraft
115        real w01(klon, llm) ! vertical velocity within adiabatic updraft
116    
117      !---------------------------------      !---------------------------------
118    
119      print *, "Call sequence information: etat0"      print *, "Call sequence information: etat0"
# Line 301  contains Line 303  contains
303    
304      ! Initialisation pour traceurs:      ! Initialisation pour traceurs:
305      call iniadvtrac      call iniadvtrac
     CALL inidissip  
306      itau_phy = 0      itau_phy = 0
307      day_ref = dayref      day_ref = dayref
308      annee_ref = anneeref      annee_ref = anneeref
# Line 357  contains Line 358  contains
358      rnebcon = 0.      rnebcon = 0.
359      ratqs = 0.      ratqs = 0.
360      run_off_lic_0 = 0.      run_off_lic_0 = 0.
361        sig1 = 0.
362        w01 = 0.
363    
364      call phyredem("startphy.nc", latfi, lonfi, pctsrf, &      call phyredem("startphy.nc", latfi, lonfi, pctsrf, &
365           tsolsrf, tsoil, tslab, seaice, qsolsrf, qsol, snsrf, albe, alblw, &           tsolsrf, tsoil, tslab, seaice, qsolsrf, qsol, snsrf, albe, alblw, &
366           evap, rain_fall, snow_fall, solsw, sollw, fder, radsol, frugs, &           evap, rain_fall, snow_fall, solsw, sollw, fder, radsol, frugs, &
367           agesno, zmea, zstd, zsig, zgam, zthe, zpic, zval, &           agesno, zmea, zstd, zsig, zgam, zthe, zpic, zval, &
368           t_ancien, q_ancien, rnebcon, ratqs, clwcon, run_off_lic_0)           t_ancien, q_ancien, rnebcon, ratqs, clwcon, run_off_lic_0, sig1, w01)
369      CALL histclo      CALL histclo
370    
371    END SUBROUTINE etat0    END SUBROUTINE etat0
Legend:
Removed from v.70  
changed lines
  Added in v.72
  ViewVC Help
Powered by ViewVC 1.1.21