--- trunk/Sources/phylmd/ini_histins.f 2015/11/25 20:14:19 174 +++ trunk/Sources/phylmd/ini_histins.f 2016/02/05 16:02:34 175 @@ -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