/[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 25 by guez, Fri Mar 5 16:43:45 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    
54      ! Variables local to the procedure:      ! Variables local to the procedure:
55    
# 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.25
  ViewVC Help
Powered by ViewVC 1.1.21