/[lmdze]/trunk/dyn3d/disvert.f
ViewVC logotype

Diff of /trunk/dyn3d/disvert.f

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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 253 by guez, Tue Jan 23 15:49:10 2018 UTC
# Line 60  contains Line 60  contains
60      real:: vert_z0hig = 80. ! height at which resolution reaches dz      real:: vert_z0hig = 80. ! height at which resolution reaches dz
61      real:: vert_h_hig = 20. ! width of the transition      real:: vert_h_hig = 20. ! width of the transition
62    
63      real, pointer:: p(:) ! (llm + 1) pressure (in hPa)      real, allocatable:: p(:) ! (llm + 1) pressure (in hPa)
64    
65      namelist /disvert_nml/vert_sampling, vert_scale, vert_dzmin, vert_dzlow, &      namelist /disvert_nml/vert_sampling, vert_scale, vert_dzmin, vert_dzlow, &
66           vert_z0low, vert_dzmid, vert_z0mid, vert_h_mid, vert_dzhig, &           vert_z0low, vert_dzmid, vert_z0mid, vert_h_mid, vert_dzhig, &
# Line 125  contains Line 125  contains
125         p = preff * EXP(- zz(2:) / vert_scale)         p = preff * EXP(- zz(2:) / vert_scale)
126         ya = pa / preff         ya = pa / preff
127         s(2: llm) = hybrid(p)         s(2: llm) = hybrid(p)
128         deallocate(p) ! pointer  
129         call compute_ab         call compute_ab
130    
131      case("read_hybrid")      case("read_hybrid")
Legend:
Removed from v.134  
changed lines
  Added in v.253
  ViewVC Help
Powered by ViewVC 1.1.21