yomscm.F90

Go to the documentation of this file.

MODULE yomscm

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!-------------------------------------------------
! SCM: extraction of Single Column Model profiles from 3D model.
!-------------------------------------------------

! NFRSCM
! NSCMTS

! NSCM_SPACE_S < 0: choose one profile over -NSCM_SPACE_S.
! NSCM_SPACE_S = 0: choose profiles close to the location
!                   given by (GSCM_LON1,GSCM_LAT1) (in rad).
! NSCM_SPACE_S = 1: choose profiles inside a given box (in (lon, lat)).
! NSCM_SPACE_S = 10: choose profiles depending on physical output,
! for example precipitating profiles.
!-------------------------------------------------

! NSCM_SPACE_S: kind of space sampling.

! NSCM_SPACE_S < 0: choose one profile over -NSCM_SPACE_S.
! NSCM_SPACE_S = 0: choose profiles close to the location
!                   given by (GSCM_LON1,GSCM_LAT1) (in rad).
! NSCM_SPACE_S = 1: choose profiles inside a given box (in (lon, lat)).
! NSCM_SPACE_S = 10: choose profiles depending on physical output,
! for example precipitating profiles.
!-------------------------------------------------
! GSCM_LON1: longitude in rad [-pi,pi].
! GSCM_LON2: longitude in rad [-pi,pi].
! GSCM_LAT1: latitude  in rad [-pi/2,pi/2].
! GSCM_LAT2: latitude  in rad [-pi/2,pi/2].
!-------------------------------------------------
! GSCM_RADIUS: search radius in meters (case NSCM_SPACE_S = 0).
!-------------------------------------------------

LOGICAL :: lgscm
INTEGER(KIND=JPIM) :: nfrscm
INTEGER(KIND=JPIM), PARAMETER :: jpnpst=240
INTEGER(KIND=JPIM) :: nscmts(0:jpnpst)
INTEGER(KIND=JPIM) :: nscm_space_s
REAL(KIND=JPRB) :: gscm_lon1
REAL(KIND=JPRB) :: gscm_lon2
REAL(KIND=JPRB) :: gscm_lat1
REAL(KIND=JPRB) :: gscm_lat2
REAL(KIND=JPRB) :: gscm_radius
INTEGER(KIND=JPIM) :: nscm_add_sampl

!$OMP THREADPRIVATE(gscm_lat1,gscm_lat2,gscm_lon1,gscm_lon2,gscm_radius,lgscm,nfrscm,nscm_add_sampl,nscm_space_s,nscmts)
END MODULE yomscm