--- trunk/Sources/phylmd/ini_histins.f 2015/07/21 15:29:52 159 +++ trunk/Sources/phylmd/ini_histins.f 2016/03/11 18:47:26 178 @@ -4,7 +4,7 @@ contains - subroutine ini_histins(dtime, ok_instan, nid_ins) + subroutine ini_histins(dtime, ok_instan, nid_ins, itau_phy) ! From phylmd/ini_histins.h, v 1.2 2005/05/25 13:10:09 @@ -20,13 +20,14 @@ use indicesol, only: nbsrf, clnsurf use iniadvtrac_m, only: tname, ttext use phyetat0_m, only: rlon, rlat - use temps, only: itau_phy USE ymds2ju_m, only: ymds2ju REAL, intent(in):: dtime ! pas temporel de la physique (s) logical, intent(in):: ok_instan integer, intent(out):: nid_ins + integer, intent(in):: itau_phy + ! Local: REAL zx_lon(iim, jjm + 1), zx_lat(iim, jjm + 1) real zjulian, zsto, zout integer i, nhori, nvert, nsrf, iq, it @@ -295,6 +296,10 @@ "kg m-2", iim, jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", & zsto, zout) + CALL histdef(nid_ins, "rhum", "Relative humidity", & + "", iim, jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", & + zsto, zout) + DO it = 1, nqmx - 2 ! champ 2D iq=it+2