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 |
|
|
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 |