/[lmdze]/trunk/Sources/dyn3d/startdyn.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/startdyn.f

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

revision 36 by guez, Thu Dec 2 17:11:04 2010 UTC revision 40 by guez, Tue Feb 22 13:49:36 2011 UTC
# Line 27  CONTAINS Line 27  CONTAINS
27      use comgeom, only: aire_2d, apoln, apols      use comgeom, only: aire_2d, apoln, apols
28      use conf_dat2d_m, only: conf_dat2d      use conf_dat2d_m, only: conf_dat2d
29      use inter_barxy_m, only: inter_barxy      use inter_barxy_m, only: inter_barxy
     use comconst, only: pi  
30      use comgeom, only: rlonu, rlatv      use comgeom, only: rlonu, rlatv
31      use dimens_m, only: iim, jjm      use dimens_m, only: iim, jjm
32      use gr_int_dyn_m, only: gr_int_dyn      use gr_int_dyn_m, only: gr_int_dyn
33      use start_init_orog_m, only: phis      use start_init_orog_m, only: phis
34      use start_init_phys_m, only: start_init_phys      use start_init_phys_m, only: start_init_phys
35      use nr_util, only: assert      use nr_util, only: assert, pi
36    
37      REAL, intent(out):: tsol_2d(:, :)      REAL, intent(out):: tsol_2d(:, :)
38      REAL, intent(out):: psol(:, :) ! surface pressure, in Pa      REAL, intent(out):: psol(:, :) ! surface pressure, in Pa
# Line 42  CONTAINS Line 41  CONTAINS
41    
42      REAL date, dt      REAL date, dt
43      INTEGER itau(1)      INTEGER itau(1)
     INTEGER i, j  
44      REAL, ALLOCATABLE:: lon_rad(:), lat_rad(:)      REAL, ALLOCATABLE:: lon_rad(:), lat_rad(:)
45    
46      REAL, ALLOCATABLE:: lon_dyn(:, :), lat_dyn(:, :)      REAL, ALLOCATABLE:: lon_dyn(:, :), lat_dyn(:, :)
Legend:
Removed from v.36  
changed lines
  Added in v.40
  ViewVC Help
Powered by ViewVC 1.1.21