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

Diff of /trunk/dyn3d/startdyn.f90

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

trunk/dyn3d/startdyn.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC trunk/dyn3d/startdyn.f90 revision 328 by guez, Thu Jun 13 14:40:06 2019 UTC
# Line 5  MODULE startdyn Line 5  MODULE startdyn
5    
6    INTEGER iml_dyn, jml_dyn, llm_dyn    INTEGER iml_dyn, jml_dyn, llm_dyn
7    
8    REAL, pointer:: lon_ini(:), lat_ini(:)    REAL, allocatable:: lon_ini(:), lat_ini(:)
9    ! longitude and latitude from the input file, converted to rad    ! longitude and latitude from the input file, converted to rad
10    
11    real, pointer:: levdyn_ini(:)    real, allocatable:: levdyn_ini(:)
12    
13  CONTAINS  CONTAINS
14    
15    SUBROUTINE start_init_dyn(tsol_2d, phis, ps)    SUBROUTINE start_init_dyn(tsol_2d, phis, ps)
16    
17      use comgeom, only: rlonu, rlatv, aire_2d, apoln, apols      use comgeom, only: aire_2d, apoln, apols
18      use conf_dat2d_m, only: conf_dat2d      use conf_dat2d_m, only: conf_dat2d
19      use dimens_m, only: iim, jjm      use dimensions, only: iim, jjm
20        use dynetat0_m, only: rlonu, rlatv
21      use gr_int_dyn_m, only: gr_int_dyn      use gr_int_dyn_m, only: gr_int_dyn
22      use inter_barxy_m, only: inter_barxy      use inter_barxy_m, only: inter_barxy
23      use netcdf, only: nf90_nowrite      use netcdf, only: nf90_nowrite
Legend:
Removed from v.82  
changed lines
  Added in v.328
  ViewVC Help
Powered by ViewVC 1.1.21