interp_grid_nat.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_interp_grid_nat
!######################

INTERFACE interp_grid_nat

SUBROUTINE interp_grid_nat_1d(PDG1,PT1,PDG2,PT2)
!
REAL, DIMENSION(:,:), INTENT(IN)  :: PDG1  ! input vertical grid
REAL, DIMENSION(:,:), INTENT(IN)  :: PT1   ! input temperatures
REAL, DIMENSION(:),   INTENT(IN)  :: PDG2  ! output vertical grid
REAL, DIMENSION(:,:), INTENT(OUT)  :: PT2  ! output temperatures
!
END SUBROUTINE interp_grid_nat_1d
!
SUBROUTINE interp_grid_nat_2d(PDG1,PT1,PDG2,PT2)
!
REAL, DIMENSION(:,:), INTENT(IN) :: PDG1  ! input vertical grid
REAL, DIMENSION(:,:), INTENT(IN) :: PT1   ! input temperatures
REAL, DIMENSION(:,:), INTENT(IN) :: PDG2  ! output vertical grid
REAL, DIMENSION(:,:), INTENT(OUT) :: PT2  ! output temperatures
!
END SUBROUTINE interp_grid_nat_2d
!
END INTERFACE

END MODULE modi_interp_grid_nat

!     ##########################################
      SUBROUTINE interp_grid_nat_1d(PDG1,PT1,PDG2,PT2)
!     ##########################################
!
USE modi_vertical_grid_nat
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!* 0.1 Declaration of dummy arguments
!
REAL, DIMENSION(:,:), INTENT(IN)   :: PDG1 ! input vertical grid
REAL, DIMENSION(:,:), INTENT(IN)   :: PT1  ! input temperatures
REAL, DIMENSION(:),   INTENT(IN)   :: PDG2 ! output vertical grid
REAL, DIMENSION(:,:), INTENT(OUT)  :: PT2  ! output temperatures
!
!* 0.2 Declaration of local variables
!
REAL, DIMENSION(SIZE(PT2,1),SIZE(PT2,2)) :: ZDG2
!
INTEGER :: JL
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!-----------------------------------------------------------------------------
IF (lhook) CALL dr_hook('MODI_INTERP_GRID_NAT:INTERP_GRID_NAT_1D',0,zhook_handle)
!
DO jl=1,SIZE(pt2,2)
  zdg2(:,jl) = pdg2(jl)
ENDDO
!
 CALL vertical_grid_nat(pdg1,pt1,zdg2,pt2)
!
IF (lhook) CALL dr_hook('MODI_INTERP_GRID_NAT:INTERP_GRID_NAT_1D',1,zhook_handle)
!-----------------------------------------------------------------------------
END SUBROUTINE interp_grid_nat_1d
!
!     ##########################################
      SUBROUTINE interp_grid_nat_2d(PDG1,PT1,PDG2,PT2)
!     ##########################################
!
USE modi_vertical_grid_nat
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!* 0.1 Declaration of dummy arguments
!
REAL, DIMENSION(:,:), INTENT(IN)  :: PDG1  ! input vertical grid
REAL, DIMENSION(:,:), INTENT(IN)  :: PT1  ! input temperatures
REAL, DIMENSION(:,:), INTENT(IN)  :: PDG2  ! output vertical grid
REAL, DIMENSION(:,:), INTENT(OUT) :: PT2  ! output temperatures
!
!* 0.2 Declaration of local variables
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-----------------------------------------------------------------------------
IF (lhook) CALL dr_hook('MODI_INTERP_GRID_NAT:INTERP_GRID_NAT_2D',0,zhook_handle)
!
 CALL vertical_grid_nat(pdg1,pt1,pdg2,pt2)
!
IF (lhook) CALL dr_hook('MODI_INTERP_GRID_NAT:INTERP_GRID_NAT_2D',1,zhook_handle)
!-----------------------------------------------------------------------------
END SUBROUTINE interp_grid_nat_2d