/[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 313 by guez, Mon Dec 10 15:54:30 2018 UTC revision 321 by guez, Tue Dec 11 22:48:09 2018 UTC
# Line 25  contains Line 25  contains
25      use grille_m_m, only: grille_m      use grille_m_m, only: grille_m
26      use grid_change, only: init_dyn_phy, dyn_phy      use grid_change, only: init_dyn_phy, dyn_phy
27      use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra, nbsrf      use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra, nbsrf
28      use iniadvtrac_m, only: iniadvtrac      use infotrac_init_m, only: infotrac_init
29      use inifilr_m, only: inifilr      use inifilr_m, only: inifilr
30      use massdair_m, only: massdair      use massdair_m, only: massdair
31      use netcdf, only: nf90_nowrite      use netcdf, only: nf90_nowrite
# Line 270  contains Line 270  contains
270              SUM(aire_2d(:iim, jjm + 1) * masse(:iim, jjm + 1, l)) / apols              SUM(aire_2d(:iim, jjm + 1) * masse(:iim, jjm + 1, l)) / apols
271      END forall      END forall
272    
273      call iniadvtrac      call infotrac_init
274      CALL geopot(teta, pk , pks, phis, phi)      CALL geopot(teta, pk , pks, phis, phi)
275      CALL caldyn0(ucov, vcov, teta, ps, pk, phis, phi)      CALL caldyn0(ucov, vcov, teta, ps, pk, phis, phi)
276      CALL dynredem0(day_ref, phis)      CALL dynredem0(day_ref, phis)
Legend:
Removed from v.313  
changed lines
  Added in v.321
  ViewVC Help
Powered by ViewVC 1.1.21