/[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 174 by guez, Tue Jul 21 15:29:52 2015 UTC revision 175 by guez, Fri Feb 5 16:02:34 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
Legend:
Removed from v.174  
changed lines
  Added in v.175
  ViewVC Help
Powered by ViewVC 1.1.21