/[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 70 by guez, Mon Jun 24 15:39:52 2013 UTC revision 71 by guez, Mon Jul 8 18:12:18 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 301  contains Line 300  contains
300    
301      ! Initialisation pour traceurs:      ! Initialisation pour traceurs:
302      call iniadvtrac      call iniadvtrac
     CALL inidissip  
303      itau_phy = 0      itau_phy = 0
304      day_ref = dayref      day_ref = dayref
305      annee_ref = anneeref      annee_ref = anneeref
Legend:
Removed from v.70  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21