/[lmdze]/trunk/Sources/phylmd/ini_histins.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/ini_histins.f

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

revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC revision 183 by guez, Wed Mar 16 14:42:58 2016 UTC
# Line 9  contains Line 9  contains
9      ! From phylmd/ini_histins.h, v 1.2 2005/05/25 13:10:09      ! From phylmd/ini_histins.h, v 1.2 2005/05/25 13:10:09
10    
11      use clesphys, only: ecrit_ins      use clesphys, only: ecrit_ins
12        use clesphys2, only: conv_emanuel
13      use dimens_m, only: iim, jjm, llm, nqmx      use dimens_m, only: iim, jjm, llm, nqmx
14      use dimphy, only: klon      use dimphy, only: klon
15      use disvert_m, only: presnivs      use disvert_m, only: presnivs
# Line 260  contains Line 261  contains
261              iim, (jjm + 1), nhori, 1, 1, 1, -99, &              iim, (jjm + 1), nhori, 1, 1, 1, -99, &
262              "inst(X)", zsto, zout)              "inst(X)", zsto, zout)
263    
264         !IM cf. AM 081204 END         if (conv_emanuel) CALL histdef(nid_ins, "ptop", "cloud top pressure", &
265                "Pa", iim, jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout)
266    
267         ! Champs 3D:         ! Champs 3D:
268    
Legend:
Removed from v.178  
changed lines
  Added in v.183
  ViewVC Help
Powered by ViewVC 1.1.21