/[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 159 by guez, Tue Jul 21 15:29:52 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 4  module ini_histins_m Line 4  module ini_histins_m
4    
5  contains  contains
6    
7    subroutine ini_histins(dtime, ok_instan, nid_ins)    subroutine ini_histins(dtime, ok_instan, nid_ins, itau_phy)
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    
# Line 20  contains Line 20  contains
20      use indicesol, only: nbsrf, clnsurf      use indicesol, only: nbsrf, clnsurf
21      use iniadvtrac_m, only: tname, ttext      use iniadvtrac_m, only: tname, ttext
22      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
     use temps, only: itau_phy  
23      USE ymds2ju_m, only: ymds2ju      USE ymds2ju_m, only: ymds2ju
24    
25      REAL, intent(in):: dtime ! pas temporel de la physique (s)      REAL, intent(in):: dtime ! pas temporel de la physique (s)
26      logical, intent(in):: ok_instan      logical, intent(in):: ok_instan
27      integer, intent(out):: nid_ins      integer, intent(out):: nid_ins
28        integer, intent(in):: itau_phy
29    
30        ! Local:
31      REAL zx_lon(iim, jjm + 1), zx_lat(iim, jjm + 1)      REAL zx_lon(iim, jjm + 1), zx_lat(iim, jjm + 1)
32      real zjulian, zsto, zout      real zjulian, zsto, zout
33      integer i, nhori, nvert, nsrf, iq, it      integer i, nhori, nvert, nsrf, iq, it
# Line 295  contains Line 296  contains
296              "kg m-2", iim, jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", &              "kg m-2", iim, jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", &
297              zsto, zout)              zsto, zout)
298    
299           CALL histdef(nid_ins, "rhum", "Relative humidity", &
300                "", iim, jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", &
301                zsto, zout)
302    
303         DO it = 1, nqmx - 2         DO it = 1, nqmx - 2
304            ! champ 2D            ! champ 2D
305            iq=it+2            iq=it+2
Legend:
Removed from v.159  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21