/[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

revision 308 by guez, Tue Sep 18 15:14:40 2018 UTC revision 313 by guez, Mon Dec 10 15:54:30 2018 UTC
# Line 15  contains Line 15  contains
15      use comconst, only: dtphys      use comconst, only: dtphys
16      use dimensions, only: iim, jjm, llm, nqmx      use dimensions, only: iim, jjm, llm, nqmx
17      use disvert_m, only: presnivs      use disvert_m, only: presnivs
18      use dynetat0_m, only: day_ref, annee_ref, rlatu, rlonv      use dynetat0_m, only: rlatu, rlonv
19        use dynetat0_chosen_m, only: day_ref, annee_ref
20      USE histbeg_totreg_m, ONLY : histbeg_totreg      USE histbeg_totreg_m, ONLY : histbeg_totreg
21      USE histdef_m, ONLY : histdef      USE histdef_m, ONLY : histdef
22      USE histend_m, ONLY : histend      USE histend_m, ONLY : histend
# Line 141  contains Line 142  contains
142              jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout)              jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout)
143    
144         DO nsrf = 1, nbsrf         DO nsrf = 1, nbsrf
           call histdef(nid_ins, "pourc_"//clnsurf(nsrf),  &  
                "% "//clnsurf(nsrf), "%",   &  
                iim, jjm + 1, nhori, 1, 1, 1, -99, &  
                "inst(X)", zsto, zout)  
145            call histdef(nid_ins, "fract_"//clnsurf(nsrf),  &            call histdef(nid_ins, "fract_"//clnsurf(nsrf),  &
146                 "Fraction "//clnsurf(nsrf), "1",   &                 "Fraction "//clnsurf(nsrf), "1",   &
147                 iim, jjm + 1, nhori, 1, 1, 1, -99, &                 iim, jjm + 1, nhori, 1, 1, 1, -99, &
Legend:
Removed from v.308  
changed lines
  Added in v.313
  ViewVC Help
Powered by ViewVC 1.1.21