/[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 306 by guez, Tue Sep 11 12:23:47 2018 UTC revision 309 by guez, Thu Sep 27 14:58:10 2018 UTC
# Line 104  contains Line 104  contains
104         CALL histdef(nid_ins, "sols", "Solar rad. at surf.", "W/m2", &         CALL histdef(nid_ins, "sols", "Solar rad. at surf.", "W/m2", &
105              iim, jjm + 1, nhori, 1, 1, 1, -99,  &              iim, jjm + 1, nhori, 1, 1, 1, -99,  &
106              "inst(X)", zsto, zout)              "inst(X)", zsto, zout)
107         CALL histdef(nid_ins, "soll", "IR rad. at surface", "W/m2", &         CALL histdef(nid_ins, "rls", "surface net downward longwave flux", &
108              iim, jjm + 1, nhori, 1, 1, 1, -99,  &              "W/m2", iim, jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout)
             "inst(X)", zsto, zout)  
109         CALL histdef(nid_ins, "solldown", "Down. IR rad. at surface",  &         CALL histdef(nid_ins, "solldown", "Down. IR rad. at surface",  &
110              "W/m2", iim, jjm + 1, nhori, 1, 1, 1, -99,  &              "W/m2", iim, jjm + 1, nhori, 1, 1, 1, -99,  &
111              "inst(X)", zsto, zout)              "inst(X)", zsto, zout)
# Line 142  contains Line 141  contains
141              jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout)              jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout)
142    
143         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)  
144            call histdef(nid_ins, "fract_"//clnsurf(nsrf),  &            call histdef(nid_ins, "fract_"//clnsurf(nsrf),  &
145                 "Fraction "//clnsurf(nsrf), "1",   &                 "Fraction "//clnsurf(nsrf), "1",   &
146                 iim, jjm + 1, nhori, 1, 1, 1, -99, &                 iim, jjm + 1, nhori, 1, 1, 1, -99, &
Legend:
Removed from v.306  
changed lines
  Added in v.309
  ViewVC Help
Powered by ViewVC 1.1.21