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

Diff of /trunk/dyn3d/etat0.f

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

revision 23 by guez, Mon Dec 14 15:25:16 2009 UTC revision 26 by guez, Tue Mar 9 15:27:15 2010 UTC
# Line 49  contains Line 49  contains
49      use regr_pr_o3_m, only: regr_pr_o3      use regr_pr_o3_m, only: regr_pr_o3
50      use phyredem_m, only: phyredem      use phyredem_m, only: phyredem
51      use caldyn0_m, only: caldyn0      use caldyn0_m, only: caldyn0
52        use inigeom_m, only: inigeom
53        use inidissip_m, only: inidissip
54    
55      ! Variables local to the procedure:      ! Variables local to the procedure:
56    
# Line 290  contains Line 292  contains
292    
293      ! Initialisation pour traceurs:      ! Initialisation pour traceurs:
294      call iniadvtrac      call iniadvtrac
     ! Ecriture:  
295      CALL inidissip(lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &      CALL inidissip(lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
296           tetagrot, tetatemp)           tetagrot, tetatemp)
297      itau_dyn = 0      itau_dyn = 0
# Line 305  contains Line 306  contains
306      CALL dynredem1("start.nc", vvent, uvent, tpot, q3d, masse, psol)      CALL dynredem1("start.nc", vvent, uvent, tpot, q3d, masse, psol)
307    
308      ! Ecriture état initial physique:      ! Ecriture état initial physique:
     print *, 'dtvr = ', dtvr  
309      print *, "iphysiq = ", iphysiq      print *, "iphysiq = ", iphysiq
310      phystep   = dtvr * REAL(iphysiq)      phystep   = dtvr * REAL(iphysiq)
311      print *, 'phystep = ', phystep      print *, 'phystep = ', phystep
Legend:
Removed from v.23  
changed lines
  Added in v.26
  ViewVC Help
Powered by ViewVC 1.1.21