dummy_eggangles.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 eggangles
USE parkind1  ,ONLY : jpim,    jprb
TYPE lola
  sequence
  REAL(KIND=JPRB) :: LON, LAT
END TYPE lola
INTERFACE angle_domain
  MODULE PROCEDURE angle_domain_rs, angle_domain_lolas, angle_domain_rv, angle_domain_lolav
END INTERFACE
INTERFACE val_lat
  MODULE PROCEDURE val_lat_s, val_lat_v
END INTERFACE
INTERFACE val_lon
  MODULE PROCEDURE val_lon_s, val_lon_v
END INTERFACE
INTERFACE val_coord
  MODULE PROCEDURE val_coord_s, val_coord_v
END INTERFACE
INTERFACE lolad
  MODULE PROCEDURE lolad_s, lolad_v
END INTERFACE
INTERFACE lolar
  MODULE PROCEDURE lolar_s, lolar_v
END INTERFACE
INTERFACE minimax
  MODULE PROCEDURE  minimax_s, minimax_v
END INTERFACE
INTERFACE cosin_to_angle
  MODULE PROCEDURE cosin_to_angle_s, cosin_to_angle_v
END INTERFACE
INTERFACE p_asin
  MODULE PROCEDURE p_asin_s, p_asin_v
END INTERFACE
INTERFACE p_acos
  MODULE PROCEDURE p_acos_s, p_acos_v
END INTERFACE
INTERFACE dist_2ref
  MODULE PROCEDURE dist_2ref_s, dist_2ref_v, dist_2ref_l
END INTERFACE
INTERFACE size_w2e
  MODULE PROCEDURE size_w2e_s, size_w2e_l
END INTERFACE

 CONTAINS
REAL(KIND=JPRB) FUNCTION angle_domain_rs(ALPHA,PI,DOM,UNIT) RESULT (BETA)
REAL(KIND=JPRB), INTENT(IN)                           :: alpha
 CHARACTER (LEN=2), INTENT(IN), OPTIONAL               :: dom
 CHARACTER (LEN=1), INTENT(IN), OPTIONAL               :: unit
REAL(KIND=JPRB), INTENT(IN), OPTIONAL                 :: pi
END FUNCTION angle_domain_rs
TYPE (lola) function angle_domain_lolas(alpha,pi,dom,unit) result (beta)
TYPE (lola), INTENT(IN)                                :: alpha
 CHARACTER (LEN=2), INTENT(IN), OPTIONAL                :: dom
 CHARACTER (LEN=1), INTENT(IN), OPTIONAL                :: unit
REAL(KIND=JPRB), INTENT(IN), OPTIONAL                  :: pi
END FUNCTION angle_domain_lolas
! -------------------------------------------------------------------------------
FUNCTION angle_domain_rv(ALPHA,PI,DOM,UNIT) RESULT (BETA)
REAL(KIND=JPRB), DIMENSION(:), INTENT(IN)             :: alpha
 CHARACTER (LEN=2), INTENT(IN), OPTIONAL               :: dom
 CHARACTER (LEN=1), INTENT(IN), OPTIONAL               :: unit
REAL(KIND=JPRB), INTENT(IN), OPTIONAL                 :: pi
END FUNCTION angle_domain_rv
! -------------------------------------------------------------------------------
FUNCTION angle_domain_lolav(YL_ALPHA,PI,DOM,UNIT) RESULT (YD_BETA)
TYPE (lola), DIMENSION(:), INTENT(IN)               :: yl_alpha
 CHARACTER (LEN=2), INTENT(IN), OPTIONAL             :: dom
 CHARACTER (LEN=1), INTENT(IN), OPTIONAL             :: unit
REAL(KIND=JPRB), INTENT(IN), OPTIONAL               :: pi
END FUNCTION angle_domain_lolav
! -------------------------------------------------------------------------------
INTEGER(KIND=JPIM) FUNCTION val_lat_s(LAT,NUM_ERR,PI,UNIT) RESULT(ETAT)
REAL(KIND=JPRB), INTENT(IN)                          :: lat
 CHARACTER (LEN=1), INTENT(IN), OPTIONAL              :: unit
REAL(KIND=JPRB), INTENT(IN), OPTIONAL                :: pi
INTEGER(KIND=JPIM), INTENT(IN), OPTIONAL             :: num_err
END FUNCTION val_lat_s
! -------------------------------------------------------------------------------
INTEGER(KIND=JPIM) FUNCTION val_lat_v(P_LAT,NUM_ERR,PI,UNIT) RESULT(ETAT)
REAL(KIND=JPRB), DIMENSION(:), INTENT(IN)                 :: p_lat
 CHARACTER (LEN=1), INTENT(IN), OPTIONAL                   :: unit
REAL(KIND=JPRB), INTENT(IN), OPTIONAL                     :: pi
INTEGER(KIND=JPIM), INTENT(IN), OPTIONAL                  :: num_err
END FUNCTION val_lat_v
! -------------------------------------------------------------------------------
INTEGER(KIND=JPIM) FUNCTION val_lon_s(LON,NUM_ERR,PI,DOM,UNIT) RESULT(ETAT)
REAL(KIND=JPRB), INTENT(IN)                                :: lon
 CHARACTER (LEN=2), INTENT(IN), OPTIONAL                    :: dom
 CHARACTER (LEN=1), INTENT(IN), OPTIONAL                    :: unit
REAL(KIND=JPRB), INTENT(IN), OPTIONAL                      :: pi
INTEGER(KIND=JPIM), INTENT(IN), OPTIONAL                   :: num_err
END FUNCTION val_lon_s
! -------------------------------------------------------------------------------
INTEGER(KIND=JPIM) FUNCTION val_lon_v(LON,NUM_ERR,PI,DOM,UNIT) RESULT(ETAT)
REAL(KIND=JPRB), DIMENSION(:), INTENT(IN)                       :: lon
 CHARACTER (LEN=2), INTENT(IN), OPTIONAL                         :: dom
 CHARACTER (LEN=1), INTENT(IN), OPTIONAL                         :: unit
REAL(KIND=JPRB), INTENT(IN), OPTIONAL                           :: pi
INTEGER(KIND=JPIM), INTENT(IN), OPTIONAL                        :: num_err
END FUNCTION val_lon_v
! -------------------------------------------------------------------------------
INTEGER(KIND=JPIM) FUNCTION val_coord_s(PT_COORD,NUM_ERR,PI,DOM,UNIT) RESULT(ETAT)
TYPE (lola), INTENT(IN)                               :: pt_coord
 CHARACTER (LEN=2), INTENT(IN), OPTIONAL               :: dom
 CHARACTER (LEN=1), INTENT(IN), OPTIONAL               :: unit
REAL(KIND=JPRB), INTENT(IN), OPTIONAL                 :: pi
INTEGER(KIND=JPIM), INTENT(IN), OPTIONAL              :: num_err
END FUNCTION val_coord_s
! -------------------------------------------------------------------------------
INTEGER(KIND=JPIM) FUNCTION val_coord_v(YD_PT_COORD,K_NUM_ERR,PI,CD_DOM,CD_UNIT) RESULT(ETAT)
TYPE (lola), DIMENSION(:), INTENT(IN)                   :: yd_pt_coord
 CHARACTER (LEN=2), INTENT(IN), OPTIONAL                 :: cd_dom
 CHARACTER (LEN=1), INTENT(IN), OPTIONAL                 :: cd_unit
REAL(KIND=JPRB), INTENT(IN), OPTIONAL                   :: pi
INTEGER(KIND=JPIM), INTENT(IN), OPTIONAL                :: k_num_err
END FUNCTION val_coord_v
! -------------------------------------------------------------------------------
TYPE(lola) function lolar_s (coord_deg) result (coord_rad)
! DEG => RAD for lola type
TYPE(lola), INTENT(IN)                      :: coord_deg
END FUNCTION lolar_s

FUNCTION lolar_v (COORD_DEG) RESULT (COORD_RAD)
! DEG => RAD for lola type
TYPE(lola), DIMENSION(:), INTENT(IN)                :: coord_deg

END FUNCTION lolar_v
! -------------------------------------------------------------------------------
TYPE(lola) function lolad_s (coord_rad) result (coord_deg)
! RAD => DEG for lola type
TYPE(lola), INTENT(IN)                      :: coord_rad
END FUNCTION lolad_s

FUNCTION lolad_v (COORD_RAD) RESULT (COORD_DEG)
! RAD => DEG for lola type
TYPE(lola), DIMENSION(:), INTENT(IN)                :: coord_rad
END FUNCTION lolad_v
! -------------------------------------------------------------------------------
REAL(KIND=JPRB) FUNCTION cosin_to_angle_s(COSINUS,SINUS) RESULT (ANGLE)
! (Cosinus,Sinus) => Angle
REAL(KIND=JPRB), INTENT(IN)                  :: cosinus,sinus
END FUNCTION cosin_to_angle_s

FUNCTION cosin_to_angle_v(COSINUS,SINUS) RESULT (ANGLE)
! (Cosinus,Sinus) => Angle
REAL(KIND=JPRB), DIMENSION(:), INTENT(IN)              :: cosinus,sinus
END FUNCTION cosin_to_angle_v
! -------------------------------------------------------------------------------
REAL(KIND=JPRB) FUNCTION p_acos_s(COSINUS) RESULT (ANGLE)
! Protected ACOS
REAL(KIND=JPRB), INTENT(IN)                  :: cosinus
END FUNCTION p_acos_s

FUNCTION p_acos_v(COSINUS) RESULT (ANGLE)
! Protected ACOS
REAL(KIND=JPRB), DIMENSION(:), INTENT(IN)              :: cosinus
END FUNCTION p_acos_v
! -------------------------------------------------------------------------------
REAL(KIND=JPRB) FUNCTION p_asin_s(SINUS) RESULT (ANGLE)
! Protected ASIN
REAL(KIND=JPRB), INTENT(IN)                  :: sinus
END FUNCTION p_asin_s

FUNCTION p_asin_v(SINUS) RESULT (ANGLE)
! Protected ASIN
REAL(KIND=JPRB), DIMENSION(:), INTENT(IN)            :: sinus
END FUNCTION p_asin_v
REAL(KIND=JPRB) FUNCTION minimax_s(VAL,LIM) RESULT (VALO)
! Return Value in [-LIM,LIM]
REAL(KIND=JPRB), INTENT(IN)                      :: val
REAL(KIND=JPRB), INTENT(IN), OPTIONAL            :: lim
END FUNCTION minimax_s
FUNCTION minimax_v(VAL,LIM) RESULT (VALO)
! Return Value in [-LIM,LIM]
REAL(KIND=JPRB), DIMENSION(:), INTENT(IN)          :: val
REAL(KIND=JPRB), INTENT(IN), OPTIONAL              :: lim
REAL(KIND=JPRB), DIMENSION(SIZE(VAL)) :: valo
END FUNCTION minimax_v
! -------------------------------------------------------------------------------
REAL(KIND=JPRB) FUNCTION dist_2ref_l(COORD_LON,REF_LON,PI) RESULT(DIST)
REAL(KIND=JPRB), INTENT(IN)                   :: coord_lon, ref_lon
REAL(KIND=JPRB), INTENT(IN), OPTIONAL         :: pi       
END FUNCTION dist_2ref_l
! -------------------------------------------------------------------------------
REAL(KIND=JPRB) FUNCTION dist_2ref_s(PT_COORD,REF_COORD,PI) RESULT(DIST)

TYPE (lola), INTENT(IN)                       :: pt_coord, ref_coord
REAL(KIND=JPRB), INTENT(IN), OPTIONAL         :: pi 
END FUNCTION dist_2ref_s
! -------------------------------------------------------------------------------
FUNCTION dist_2ref_v(PT_COORD,REF_COORD,PI) RESULT(DIST)
TYPE (lola), DIMENSION(:), INTENT(IN)                   :: pt_coord
TYPE (lola), INTENT(IN)                                 :: ref_coord
REAL(KIND=JPRB), INTENT(IN), OPTIONAL                   :: pi 
REAL(KIND=JPRB), DIMENSION(SIZE(PT_COORD)) :: dist
END FUNCTION dist_2ref_v
! -------------------------------------------------------------------------------
REAL(KIND=JPRB) FUNCTION size_w2e_l(WEST_LON,EAST_LON,PI) RESULT(TAILLE)
REAL(KIND=JPRB), INTENT(IN)                   :: west_lon, east_lon
REAL(KIND=JPRB), INTENT(IN), OPTIONAL         :: pi 
END FUNCTION size_w2e_l
! -------------------------------------------------------------------------------
REAL(KIND=JPRB) FUNCTION size_w2e_s(WEST_COORD,EAST_COORD,PI) RESULT(TAILLE)
TYPE (lola), INTENT(IN)                       :: west_coord, east_coord
REAL(KIND=JPRB), INTENT(IN), OPTIONAL         :: pi 
END FUNCTION size_w2e_s
! -------------------------------------------------------------------------------
END MODULE eggangles