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