6 |
|
|
7 |
contains |
contains |
8 |
|
|
9 |
subroutine ini_histhf(dtime, presnivs, nid_hf, nid_hf3d) |
subroutine ini_histhf(dtime, nid_hf, nid_hf3d) |
10 |
|
|
11 |
! From phylmd/ini_histhf.h, version 1.3 2005/05/25 13:10:09 |
! From phylmd/ini_histhf.h, version 1.3 2005/05/25 13:10:09 |
12 |
|
|
15 |
use dimphy, only: klon |
use dimphy, only: klon |
16 |
USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend |
USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend |
17 |
use phyetat0_m, only: rlon, rlat |
use phyetat0_m, only: rlon, rlat |
18 |
|
use comvert, only: presnivs |
19 |
|
|
20 |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
|
real, intent(in):: presnivs(:) |
|
21 |
integer, intent(out):: nid_hf, nid_hf3d |
integer, intent(out):: nid_hf, nid_hf3d |
22 |
|
|
23 |
REAL zx_lon(iim, jjm + 1), zx_lat(iim, jjm + 1) |
REAL zx_lon(iim, jjm + 1), zx_lat(iim, jjm + 1) |
43 |
CALL histvert(nid_hf, "presnivs", "Vertical levels", "mb", & |
CALL histvert(nid_hf, "presnivs", "Vertical levels", "mb", & |
44 |
llm, presnivs/100., nvert) |
llm, presnivs/100., nvert) |
45 |
|
|
46 |
call ini_histhf3d(dtime, presnivs, nid_hf3d) |
call ini_histhf3d(dtime, nid_hf3d) |
47 |
CALL histend(nid_hf) |
CALL histend(nid_hf) |
48 |
|
|
49 |
end subroutine ini_histhf |
end subroutine ini_histhf |
50 |
|
|
51 |
!****************************************************************** |
!****************************************************************** |
52 |
|
|
53 |
subroutine ini_histhf3d(dtime, presnivs, nid_hf3d) |
subroutine ini_histhf3d(dtime, nid_hf3d) |
54 |
|
|
55 |
! From phylmd/ini_histhf3d.h, v 1.2 2005/05/25 13:10:09 |
! From phylmd/ini_histhf3d.h, v 1.2 2005/05/25 13:10:09 |
56 |
|
|
62 |
use clesphys, only: ecrit_hf |
use clesphys, only: ecrit_hf |
63 |
use phyetat0_m, only: rlon, rlat |
use phyetat0_m, only: rlon, rlat |
64 |
USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend, histdef |
USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend, histdef |
65 |
|
use comvert, only: presnivs |
66 |
|
|
67 |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
|
real, intent(in):: presnivs(:) |
|
68 |
integer, intent(out):: nid_hf3d |
integer, intent(out):: nid_hf3d |
69 |
|
|
70 |
real zstohf, zout |
real zstohf, zout |
123 |
|
|
124 |
!****************************************************************** |
!****************************************************************** |
125 |
|
|
126 |
subroutine ini_histday(dtime, presnivs, ok_journe, nid_day, nq) |
subroutine ini_histday(dtime, ok_journe, nid_day, nq) |
127 |
|
|
128 |
! From phylmd/ini_histday.h, v 1.3 2005/05/25 13:10:09 |
! From phylmd/ini_histday.h, v 1.3 2005/05/25 13:10:09 |
129 |
|
|
133 |
use phyetat0_m, only: rlon, rlat |
use phyetat0_m, only: rlon, rlat |
134 |
use clesphys, only: ecrit_day |
use clesphys, only: ecrit_day |
135 |
use grid_change, only: gr_phy_write_2d |
use grid_change, only: gr_phy_write_2d |
136 |
|
use comvert, only: presnivs |
137 |
|
|
138 |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
|
real, intent(in):: presnivs(:) |
|
139 |
logical, intent(in):: ok_journe |
logical, intent(in):: ok_journe |
140 |
integer, intent(out):: nid_day |
integer, intent(out):: nid_day |
141 |
INTEGER, intent(in):: nq ! nombre de traceurs (y compris vapeur d'eau) |
INTEGER, intent(in):: nq ! nombre de traceurs (y compris vapeur d'eau) |
168 |
|
|
169 |
!**************************************************** |
!**************************************************** |
170 |
|
|
171 |
subroutine ini_histins(dtime, presnivs, ok_instan, nid_ins) |
subroutine ini_histins(dtime, ok_instan, nid_ins) |
172 |
|
|
173 |
! 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 |
174 |
|
|
179 |
use indicesol, only: nbsrf, clnsurf |
use indicesol, only: nbsrf, clnsurf |
180 |
USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend, histdef |
USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend, histdef |
181 |
use phyetat0_m, only: rlon, rlat |
use phyetat0_m, only: rlon, rlat |
182 |
|
use comvert, only: presnivs |
183 |
|
|
184 |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
|
real, intent(in):: presnivs(:) |
|
185 |
logical, intent(in):: ok_instan |
logical, intent(in):: ok_instan |
186 |
integer, intent(out):: nid_ins |
integer, intent(out):: nid_ins |
187 |
|
|
463 |
|
|
464 |
!************************************************* |
!************************************************* |
465 |
|
|
466 |
subroutine ini_histrac(nid_tra, pdtphys, presnivs, nq_phys, lessivage) |
subroutine ini_histrac(nid_tra, pdtphys, nq_phys, lessivage) |
467 |
|
|
468 |
! From phylmd/ini_histrac.h, version 1.10 2006/02/21 08:08:30 |
! From phylmd/ini_histrac.h, version 1.10 2006/02/21 08:08:30 |
469 |
|
|
475 |
use clesphys, only: ecrit_tra |
use clesphys, only: ecrit_tra |
476 |
use grid_change, only: gr_phy_write_2d |
use grid_change, only: gr_phy_write_2d |
477 |
use phyetat0_m, only: rlon, rlat |
use phyetat0_m, only: rlon, rlat |
478 |
|
use comvert, only: presnivs |
479 |
|
|
480 |
INTEGER, intent(out):: nid_tra |
INTEGER, intent(out):: nid_tra |
481 |
real, intent(in):: pdtphys ! pas d'integration pour la physique (s) |
real, intent(in):: pdtphys ! pas d'integration pour la physique (s) |
|
REAL, intent(in):: presnivs(:) |
|
482 |
|
|
483 |
integer, intent(in):: nq_phys |
integer, intent(in):: nq_phys |
484 |
! (nombre de traceurs auxquels on applique la physique) |
! (nombre de traceurs auxquels on applique la physique) |