ini_var_from_data_0d.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
MODULE modi_ini_var_from_data_0d
!
INTERFACE ini_var_from_data_0d
!
!     #########
      SUBROUTINE ini_var_from_data_0d_1d (DTCO, UG, U, USS, &
                                          HPROGRAM, HATYPE,  HNAME, HTYPE, HFNAM, &
                                          HFTYP, PUNIF, PFIELD, OPRESENT,  &
                                          PMASK)
!     ##############################################################
!
USE modd_data_cover_n, ONLY : data_cover_t
USE modd_surf_atm_grid_n, ONLY : surf_atm_grid_t
USE modd_surf_atm_n, ONLY : surf_atm_t
USE modd_sso_n, ONLY : sso_t
!
IMPLICIT NONE
!
!*    0.1    Declaration of arguments
!            ------------------------
!
!
TYPE(data_cover_t), INTENT(INOUT) :: DTCO
TYPE(surf_atm_grid_t), INTENT(INOUT) :: UG
TYPE(surf_atm_t), INTENT(INOUT) :: U
TYPE(sso_t), INTENT(INOUT) :: USS
!
!
 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM
 CHARACTER(LEN=3), INTENT(IN) :: HATYPE
 CHARACTER(LEN=*), INTENT(IN) :: HNAME
 CHARACTER(LEN=3), INTENT(IN) :: HTYPE
 CHARACTER(LEN=28), INTENT(IN) :: HFNAM
 CHARACTER(LEN=6), INTENT(INOUT) :: HFTYP
REAL, INTENT(IN) :: PUNIF
REAL, DIMENSION(:), INTENT(OUT) :: PFIELD
LOGICAL, INTENT(OUT) :: OPRESENT
REAL, DIMENSION(:), OPTIONAL, INTENT(IN) :: PMASK
!
!
END SUBROUTINE ini_var_from_data_0d_1d
!
!     #########
      SUBROUTINE ini_var_from_data_0d_2d (DTCO, UG, U, USS, &
                                          HPROGRAM, HATYPE,  HNAME, HTYPE, HFNAM, &
                                          HFTYP, PUNIF, PFIELD, OPRESENT,  &
                                          PMASK)
!     ##############################################################
!
USE modd_data_cover_n, ONLY : data_cover_t
USE modd_surf_atm_grid_n, ONLY : surf_atm_grid_t
USE modd_surf_atm_n, ONLY : surf_atm_t
USE modd_sso_n, ONLY : sso_t
!
IMPLICIT NONE
!
!*    0.1    Declaration of arguments
!            ------------------------
!
!
TYPE(data_cover_t), INTENT(INOUT) :: DTCO
TYPE(surf_atm_grid_t), INTENT(INOUT) :: UG
TYPE(surf_atm_t), INTENT(INOUT) :: U
TYPE(sso_t), INTENT(INOUT) :: USS
!
!
 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM
 CHARACTER(LEN=3), INTENT(IN) :: HATYPE
 CHARACTER(LEN=*), INTENT(IN) :: HNAME
 CHARACTER(LEN=3), INTENT(IN) :: HTYPE
 CHARACTER(LEN=28), INTENT(IN) :: HFNAM
 CHARACTER(LEN=6), INTENT(INOUT) :: HFTYP
REAL, INTENT(IN) :: PUNIF
REAL, DIMENSION(:,:), INTENT(OUT) :: PFIELD
LOGICAL, INTENT(OUT) :: OPRESENT
REAL, DIMENSION(:,:), OPTIONAL, INTENT(IN) :: PMASK
!
!
END SUBROUTINE ini_var_from_data_0d_2d
!
END INTERFACE ini_var_from_data_0d
!
END MODULE modi_ini_var_from_data_0d
!
!     #########
      SUBROUTINE ini_var_from_data_0d_1d (DTCO, UG, U, USS, &
                                          HPROGRAM, HATYPE,  HNAME, HTYPE, HFNAM, &
                                          HFTYP, PUNIF, PFIELD, OPRESENT, PMASK)
!     ##############################################################
!
USE modd_data_cover_n, ONLY : data_cover_t
USE modd_surf_atm_grid_n, ONLY : surf_atm_grid_t
USE modd_surf_atm_n, ONLY : surf_atm_t
USE modd_sso_n, ONLY : sso_t
!
USE modd_surf_par, ONLY : xundef
!
USE modi_ini_var_from_data_0d_in
!
IMPLICIT NONE
!
!*    0.1    Declaration of arguments
!            ------------------------
!
!
TYPE(data_cover_t), INTENT(INOUT) :: DTCO
TYPE(surf_atm_grid_t), INTENT(INOUT) :: UG
TYPE(surf_atm_t), INTENT(INOUT) :: U
TYPE(sso_t), INTENT(INOUT) :: USS
!
!
 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM
 CHARACTER(LEN=3), INTENT(IN) :: HATYPE
 CHARACTER(LEN=*), INTENT(IN) :: HNAME
 CHARACTER(LEN=3), INTENT(IN) :: HTYPE
 CHARACTER(LEN=28), INTENT(IN) :: HFNAM
 CHARACTER(LEN=6), INTENT(INOUT) :: HFTYP
REAL, INTENT(IN) :: PUNIF
REAL, DIMENSION(:), INTENT(OUT) :: PFIELD
LOGICAL, INTENT(OUT) :: OPRESENT
REAL, DIMENSION(:), OPTIONAL, INTENT(IN) :: PMASK
!
REAL, DIMENSION(SIZE(PFIELD),1) :: ZFIELD
REAL, DIMENSION(:,:), ALLOCATABLE :: ZMASK
!
IF (PRESENT(pmask)) THEN
  ALLOCATE(zmask(SIZE(pmask),1))
  zmask(:,1) = pmask
  CALL ini_var_from_data_0d_in(dtco, ug, u, uss, &
                   hprogram, hatype, hname, htype, hfnam, &
                   hftyp, punif, zfield, opresent, zmask)
  DEALLOCATE(zmask)
ELSE
  CALL ini_var_from_data_0d_in(dtco, ug, u, uss, &
                   hprogram, hatype, hname, htype, hfnam, &
                   hftyp, punif, zfield, opresent)
ENDIF
!
IF (any(zfield(:,1)/=xundef)) pfield(:) = zfield(:,1)
!
!
END SUBROUTINE ini_var_from_data_0d_1d
!
!     #########
      SUBROUTINE ini_var_from_data_0d_2d (DTCO, UG, U, USS, &
                                          HPROGRAM, HATYPE,  HNAME, HTYPE, HFNAM, &
                                          HFTYP, PUNIF, PFIELD, OPRESENT, PMASK)
!     ##############################################################
!
USE modd_data_cover_n, ONLY : data_cover_t
USE modd_surf_atm_grid_n, ONLY : surf_atm_grid_t
USE modd_surf_atm_n, ONLY : surf_atm_t
USE modd_sso_n, ONLY : sso_t
!
USE modi_ini_var_from_data_0d_in
!
IMPLICIT NONE
!
!*    0.1    Declaration of arguments
!            ------------------------
!
!
TYPE(data_cover_t), INTENT(INOUT) :: DTCO
TYPE(surf_atm_grid_t), INTENT(INOUT) :: UG
TYPE(surf_atm_t), INTENT(INOUT) :: U
TYPE(sso_t), INTENT(INOUT) :: USS
!
!
 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM
 CHARACTER(LEN=3), INTENT(IN) :: HATYPE
 CHARACTER(LEN=*), INTENT(IN) :: HNAME
 CHARACTER(LEN=3), INTENT(IN) :: HTYPE
 CHARACTER(LEN=28), INTENT(IN) :: HFNAM
 CHARACTER(LEN=6), INTENT(INOUT) :: HFTYP
REAL, INTENT(IN) :: PUNIF
REAL, DIMENSION(:,:), INTENT(OUT) :: PFIELD
LOGICAL, INTENT(OUT) :: OPRESENT
REAL, DIMENSION(:,:), OPTIONAL, INTENT(IN) :: PMASK
!
IF (PRESENT(pmask)) THEN
  CALL ini_var_from_data_0d_in(dtco, ug, u, uss, &
                   hprogram, hatype, hname, htype, hfnam, &
                   hftyp, punif, pfield, opresent, pmask)
ELSE
  CALL ini_var_from_data_0d_in(dtco, ug, u, uss, &
                   hprogram, hatype, hname, htype, hfnam, &
                   hftyp, punif, pfield, opresent)        
ENDIF
!
END SUBROUTINE ini_var_from_data_0d_2d
!