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

Diff of /trunk/dyn3d/etat0.f90

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

revision 68 by guez, Wed Nov 14 16:59:30 2012 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 107  contains Line 106  contains
106      real pks(iim + 1, jjm + 1)      real pks(iim + 1, jjm + 1)
107    
108      REAL masse(iim + 1, jjm + 1, llm)      REAL masse(iim + 1, jjm + 1, llm)
109      REAL phi(ip1jmp1, llm)      REAL phi(iim + 1, jjm + 1, llm)
110      REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)      REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)
111      REAL w(ip1jmp1, llm)      REAL w(ip1jmp1, llm)
112      REAL phystep      REAL phystep
# 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
306    
307      CALL geopot(ip1jmp1, tpot, pk , pks,  phis, phi)      CALL geopot(tpot, pk , pks,  phis, phi)
308      CALL caldyn0(ucov, vcov, tpot, psol, masse, pk, phis, phi, w, pbaru, &      CALL caldyn0(ucov, vcov, tpot, psol, masse, pk, phis, phi, w, pbaru, &
309           pbarv)           pbarv)
310      CALL dynredem0("start.nc", dayref, phis)      CALL dynredem0("start.nc", dayref, phis)
Legend:
Removed from v.68  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21