iophy Module


Contents

Variables

Interfaces

Subroutines


Variables

Type Visibility Attributes Name Initial
real, public, ALLOCATABLE, DIMENSION(:), SAVE :: io_lat
real, public, ALLOCATABLE, DIMENSION(:), SAVE :: io_lon
integer, public, SAVE :: phys_domain_id
integer, public, SAVE :: npstn
integer, public, ALLOCATABLE, DIMENSION(:), SAVE :: nptabij
integer, public, SAVE :: itau_iophy

WARNING, only itau_iophy needs to be put in a THREADPRIVATE statement, io_lat,io_lon,phys_domain_id,npstn,nptabij are shared between OMP tasks
logical, public :: check_dim = .false.

Interfaces

public interface histwrite_phy

  • public subroutine histwrite2d_phy(var, field, STD_iff)

    Arguments

    Type IntentOptional Attributes Name
    type(ctrl_out), intent(in) :: var
    real, intent(in), DIMENSION(:) :: field
    integer, intent(in), optional :: STD_iff

  • public subroutine histwrite3d_phy(var, field, STD_iff)

    Arguments

    Type IntentOptional Attributes Name
    type(ctrl_out), intent(in) :: var
    real, intent(in), DIMENSION(:,:) :: field
    integer, intent(in), optional :: STD_iff

  • public subroutine histwrite2d_phy_old(nid, lpoint, name, itau, field)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: nid
    logical, intent(in) :: lpoint
    character(len=*), intent(in) :: name
    integer, intent(in) :: itau
    real, intent(in), DIMENSION(:) :: field

  • public subroutine histwrite3d_phy_old(nid, lpoint, name, itau, field)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: nid
    logical, intent(in) :: lpoint
    character(len=*), intent(in) :: name
    integer, intent(in) :: itau
    real, intent(in), DIMENSION(:,:) :: field

  • public subroutine histwrite2d_xios(field_name, field)

    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: field_name
    real, intent(in), DIMENSION(:) :: field

  • public subroutine histwrite3d_xios(field_name, field)

    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: field_name
    real, intent(in), DIMENSION(:,:) :: field

  • public subroutine histwrite0d_xios(field_name, field)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: field_name
    real, intent(in) :: field

public interface histbeg_phy_all

  • public subroutine histbeg_phy(name, itau0, zjulian, dtime, nhori, nid_day)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: name
    integer, intent(in) :: itau0
    real, intent(in) :: zjulian
    real, intent(in) :: dtime
    integer, intent(out) :: nhori
    integer, intent(out) :: nid_day

  • public subroutine histbeg_phyxios(name, itau0, zjulian, dtime, ffreq, lev, nhori, nid_day)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: name
    integer, intent(in) :: itau0
    real, intent(in) :: zjulian
    real, intent(in) :: dtime
    character(len=*), intent(in) :: ffreq
    integer, intent(in) :: lev
    integer, intent(out) :: nhori
    integer, intent(out) :: nid_day

  • public subroutine histbeg_phy_points(rlon, rlat, pim, tabij, ipt, jpt, plon, plat, plon_bounds, plat_bounds, nname, itau0, zjulian, dtime, nnhori, nnid_day)

    ! ! print qui sert a reordonner les points stations selon l'ordre CFMIP ! ne pas enlever !

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), DIMENSION(klon) :: rlon
    real, intent(in), DIMENSION(klon) :: rlat
    integer, intent(in) :: pim
    integer, intent(in), DIMENSION(pim) :: tabij
    integer, intent(in), DIMENSION(pim) :: ipt
    integer, intent(in), DIMENSION(pim) :: jpt
    real, intent(in), DIMENSION(pim) :: plon
    real, intent(in), DIMENSION(pim) :: plat
    real, intent(out), DIMENSION(pim,2) :: plon_bounds
    real, intent(out), DIMENSION(pim,2) :: plat_bounds
    character(len=20), intent(in) :: nname
    integer, intent(in) :: itau0
    real, intent(in) :: zjulian
    real, intent(in) :: dtime
    integer, intent(out) :: nnhori
    integer, intent(out) :: nnid_day

Subroutines

public subroutine set_itau_iophy(ito)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ito

public subroutine init_iophy_new(rlat, rlon)

(I) dtnb : total number of domains (I) dnb : domain number (I) did(:) : distributed dimensions identifiers (up to 5 dimensions are supported) (I) dsg(:) : total number of points for each dimension (I) dsl(:) : local number of points for each dimension (I) dpf(:) : position of first local point for each dimension (I) dpl(:) : position of last local point for each dimension (I) dhs(:) : start halo size for each dimension (I) dhe(:) : end halo size for each dimension (C) cdnm : Model domain definition name. The names actually supported are : "BOX", "APPLE", "ORANGE". These names are case insensitive.

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(klon) :: rlat
real, intent(in), DIMENSION(klon) :: rlon

public subroutine init_iophy(lat, lon)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(nbp_lat) :: lat
real, intent(in), DIMENSION(nbp_lon) :: lon

public subroutine histbeg_phyxios(name, itau0, zjulian, dtime, ffreq, lev, nhori, nid_day)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name
integer, intent(in) :: itau0
real, intent(in) :: zjulian
real, intent(in) :: dtime
character(len=*), intent(in) :: ffreq
integer, intent(in) :: lev
integer, intent(out) :: nhori
integer, intent(out) :: nid_day

public subroutine histbeg_phy(name, itau0, zjulian, dtime, nhori, nid_day)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name
integer, intent(in) :: itau0
real, intent(in) :: zjulian
real, intent(in) :: dtime
integer, intent(out) :: nhori
integer, intent(out) :: nid_day

public subroutine histbeg_phy_points(rlon, rlat, pim, tabij, ipt, jpt, plon, plat, plon_bounds, plat_bounds, nname, itau0, zjulian, dtime, nnhori, nnid_day)

! ! print qui sert a reordonner les points stations selon l'ordre CFMIP ! ne pas enlever !

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(klon) :: rlon
real, intent(in), DIMENSION(klon) :: rlat
integer, intent(in) :: pim
integer, intent(in), DIMENSION(pim) :: tabij
integer, intent(in), DIMENSION(pim) :: ipt
integer, intent(in), DIMENSION(pim) :: jpt
real, intent(in), DIMENSION(pim) :: plon
real, intent(in), DIMENSION(pim) :: plat
real, intent(out), DIMENSION(pim,2) :: plon_bounds
real, intent(out), DIMENSION(pim,2) :: plat_bounds
character(len=20), intent(in) :: nname
integer, intent(in) :: itau0
real, intent(in) :: zjulian
real, intent(in) :: dtime
integer, intent(out) :: nnhori
integer, intent(out) :: nnid_day

public subroutine histdef2d_old(iff, lpoint, flag_var, nomvar, titrevar, unitvar)

Arguments

Type IntentOptional Attributes Name
integer :: iff
logical :: lpoint
integer, DIMENSION(nfiles) :: flag_var
character(len=20) :: nomvar
character(len=*) :: titrevar
character(len=*) :: unitvar

public subroutine histdef3d_old(iff, lpoint, flag_var, nomvar, titrevar, unitvar)

Arguments

Type IntentOptional Attributes Name
integer :: iff
logical :: lpoint
integer, DIMENSION(nfiles) :: flag_var
character(len=20) :: nomvar
character(len=*) :: titrevar
character(len=*) :: unitvar

public subroutine histdef2d(iff, var)

Arguments

Type IntentOptional Attributes Name
integer :: iff
type(ctrl_out) :: var

public subroutine histdef3d(iff, var)

Arguments

Type IntentOptional Attributes Name
integer :: iff
type(ctrl_out) :: var

public subroutine conf_physoutputs(nam_var, flag_var)

! Lecture des noms et niveau de sortie des variables dans output.def

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(inout) :: nam_var
integer, intent(inout) :: flag_var(nfiles)

public subroutine histwrite2d_phy_old(nid, lpoint, name, itau, field)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nid
logical, intent(in) :: lpoint
character(len=*), intent(in) :: name
integer, intent(in) :: itau
real, intent(in), DIMENSION(:) :: field

public subroutine histwrite3d_phy_old(nid, lpoint, name, itau, field)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nid
logical, intent(in) :: lpoint
character(len=*), intent(in) :: name
integer, intent(in) :: itau
real, intent(in), DIMENSION(:,:) :: field

public subroutine histwrite2d_phy(var, field, STD_iff)

Arguments

Type IntentOptional Attributes Name
type(ctrl_out), intent(in) :: var
real, intent(in), DIMENSION(:) :: field
integer, intent(in), optional :: STD_iff

public subroutine histwrite3d_phy(var, field, STD_iff)

Arguments

Type IntentOptional Attributes Name
type(ctrl_out), intent(in) :: var
real, intent(in), DIMENSION(:,:) :: field
integer, intent(in), optional :: STD_iff

public subroutine histwrite2d_xios(field_name, field)

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: field_name
real, intent(in), DIMENSION(:) :: field

public subroutine histwrite3d_xios(field_name, field)

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: field_name
real, intent(in), DIMENSION(:,:) :: field

public subroutine histwrite0d_xios(field_name, field)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: field_name
real, intent(in) :: field