/[lmdze]/trunk/phylmd/Mobidic/regr_pr_o3.f
ViewVC logotype

Diff of /trunk/phylmd/Mobidic/regr_pr_o3.f

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

revision 129 by guez, Fri Feb 13 18:22:38 2015 UTC revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 22  contains Line 22  contains
22      ! We assume that, in the input file, the pressure levels are in      ! We assume that, in the input file, the pressure levels are in
23      ! hPa and strictly increasing.      ! hPa and strictly increasing.
24    
25      use dimens_m, only: iim, jjm, llm      use dimensions, only: iim, jjm, llm
26      use dynetat0_m, only: day_ref      use dynetat0_m, only: day_ref
27      use grid_change, only: dyn_phy      use grid_change, only: dyn_phy
28      use netcdf, only:  nf90_nowrite, nf90_get_var      use netcdf, only:  nf90_nowrite, nf90_get_var
# Line 43  contains Line 43  contains
43    
44      ! Variables local to the procedure:      ! Variables local to the procedure:
45    
46      real, pointer:: plev(:)      real, allocatable:: plev(:)
47      ! (pressure levels of Mobidic data, in Pa, in strictly increasing order)      ! (pressure levels of Mobidic data, in Pa, in strictly increasing order)
48    
49      real, allocatable:: press_in_edg(:)      real, allocatable:: press_in_edg(:)
# Line 84  contains Line 84  contains
84      ! (infinity, but any value guaranteed to be greater than the      ! (infinity, but any value guaranteed to be greater than the
85      ! surface pressure would do)      ! surface pressure would do)
86    
     deallocate(plev) ! pointer  
   
87      call nf95_inq_varid(ncid, "r_Mob", varid)      call nf95_inq_varid(ncid, "r_Mob", varid)
88      allocate(r_mob(jjm + 1, n_plev))      allocate(r_mob(jjm + 1, n_plev))
89    
Legend:
Removed from v.129  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21