trunk/phylmd/histwrite_phy.f

module histwrite_phy_m

  use clesphys, only: ok_instan
  use gr_phy_write_m, only: gr_phy_write
  use histwrite_m, only: histwrite
  use ini_histins_m, only: nid_ins
  use time_phylmdz, only: itau_w

  implicit none

  INTERFACE histwrite_phy
     MODULE PROCEDURE histwrite2d_phy, histwrite3d_phy
  end INTERFACE histwrite_phy

  private
  public histwrite_phy

contains

  subroutine histwrite2d_phy(var, field)

    character(len=*), intent(in):: var
    real, intent(in):: field(:)

    !-----------------------------------------------------------

    IF (ok_instan) CALL histwrite(nid_ins, var, itau_w, gr_phy_write(field))

  end subroutine histwrite2d_phy

  !*************************************************************

  subroutine histwrite3d_phy(var, field)

    character(len=*), intent(in):: var
    real, intent(in):: field(:, :)

    !-----------------------------------------------------------

    IF (ok_instan) CALL histwrite(nid_ins, var, itau_w, gr_phy_write(field))

  end subroutine histwrite3d_phy

end module histwrite_phy_m
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