1 |
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 |
public histwrite_phy |
17 |
|
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 |