/[lmdze]/trunk/libf/dyn3d/etat0.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/etat0.f90

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

revision 25 by guez, Fri Mar 5 16:43:45 2010 UTC revision 26 by guez, Tue Mar 9 15:27:15 2010 UTC
# Line 50  contains Line 50  contains
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      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 291  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
Legend:
Removed from v.25  
changed lines
  Added in v.26
  ViewVC Help
Powered by ViewVC 1.1.21