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

Diff of /trunk/phylmd/ini_histins.f

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

trunk/libf/phylmd/ini_histins.f90 revision 34 by guez, Wed Jun 2 11:01:12 2010 UTC trunk/phylmd/ini_histins.f revision 92 by guez, Wed Mar 26 18:16:05 2014 UTC
# Line 8  contains Line 8  contains
8    
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
12      use dimens_m, only: iim, jjm, llm      use dimens_m, only: iim, jjm, llm
13      use dimphy, only: klon      use dimphy, only: klon
14      use temps, only: itau_phy, day_ref, annee_ref      use disvert_m, only: presnivs
15      use clesphys, only: ecrit_ins      USE histbeg_totreg_m, ONLY : histbeg_totreg
16        USE histdef_m, ONLY : histdef
17        USE histend_m, ONLY : histend
18        USE histvert_m, ONLY : histvert
19      use indicesol, only: nbsrf, clnsurf      use indicesol, only: nbsrf, clnsurf
     USE calendar, only: ymds2ju  
     use histcom, only: histbeg_totreg, histvert, histend, histdef  
20      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
21      use comvert, only: presnivs      use temps, only: itau_phy, day_ref, annee_ref
22        USE ymds2ju_m, only: ymds2ju
23    
24      REAL, intent(in):: dtime ! pas temporel de la physique (s)      REAL, intent(in):: dtime ! pas temporel de la physique (s)
25      logical, intent(in):: ok_instan      logical, intent(in):: ok_instan
# Line 46  contains Line 49  contains
49              jjm + 1, itau_phy, zjulian, dtime, nhori, nid_ins)              jjm + 1, itau_phy, zjulian, dtime, nhori, nid_ins)
50         write(*, *)'Inst ', itau_phy, zjulian         write(*, *)'Inst ', itau_phy, zjulian
51         CALL histvert(nid_ins, "presnivs", "Vertical levels", "mb", &         CALL histvert(nid_ins, "presnivs", "Vertical levels", "mb", &
52              llm, presnivs/100., nvert)              presnivs/100., nvert)
53    
54         CALL histdef(nid_ins, "phis", "Surface geop. height", "-", &         CALL histdef(nid_ins, "phis", "Surface geop. height", "-", &
55              iim, (jjm + 1), nhori, 1, 1, 1, -99, &              iim, (jjm + 1), nhori, 1, 1, 1, -99, &
Legend:
Removed from v.34  
changed lines
  Added in v.92
  ViewVC Help
Powered by ViewVC 1.1.21