1 |
guez |
191 |
module histwrite_phy_m |
2 |
|
|
|
3 |
|
|
use clesphys, only: ok_instan |
4 |
|
|
use gr_phy_write_m, only: gr_phy_write |
5 |
|
|
use histwrite_m, only: histwrite |
6 |
|
|
use ini_histins_m, only: nid_ins |
7 |
|
|
use time_phylmdz, only: itau_w |
8 |
|
|
|
9 |
|
|
implicit none |
10 |
|
|
|
11 |
|
|
INTERFACE histwrite_phy |
12 |
|
|
MODULE PROCEDURE histwrite2d_phy, histwrite3d_phy |
13 |
|
|
end INTERFACE histwrite_phy |
14 |
|
|
|
15 |
|
|
private |
16 |
guez |
212 |
public histwrite_phy |
17 |
guez |
191 |
|
18 |
|
|
contains |
19 |
|
|
|
20 |
|
|
subroutine histwrite2d_phy(var, field) |
21 |
|
|
|
22 |
|
|
character(len=*), intent(in):: var |
23 |
|
|
real, intent(in):: field(:) |
24 |
|
|
|
25 |
|
|
!----------------------------------------------------------- |
26 |
|
|
|
27 |
|
|
IF (ok_instan) CALL histwrite(nid_ins, var, itau_w, gr_phy_write(field)) |
28 |
|
|
|
29 |
|
|
end subroutine histwrite2d_phy |
30 |
|
|
|
31 |
|
|
!************************************************************* |
32 |
|
|
|
33 |
|
|
subroutine histwrite3d_phy(var, field) |
34 |
|
|
|
35 |
|
|
character(len=*), intent(in):: var |
36 |
|
|
real, intent(in):: field(:, :) |
37 |
|
|
|
38 |
|
|
!----------------------------------------------------------- |
39 |
|
|
|
40 |
|
|
IF (ok_instan) CALL histwrite(nid_ins, var, itau_w, gr_phy_write(field)) |
41 |
|
|
|
42 |
|
|
end subroutine histwrite3d_phy |
43 |
|
|
|
44 |
|
|
end module histwrite_phy_m |