Skip to content
Snippets Groups Projects
Commit ad41f732 authored by ESCOBAR MUNOZ Juan's avatar ESCOBAR MUNOZ Juan Committed by WAUTELET Philippe
Browse files

Juan 8/10/2014: manage rttov usage with MNH_RTTOV key

parent ffea82cc
Branches
Tags
No related merge requests found
...@@ -86,6 +86,7 @@ SUBROUTINE CALL_RTTOV(KDLON, KFLEV, KSTATM, PEMIS, PTSRAD, PSTATM, & ...@@ -86,6 +86,7 @@ SUBROUTINE CALL_RTTOV(KDLON, KFLEV, KSTATM, PEMIS, PTSRAD, PSTATM, &
!!* 0. DECLARATIONS !!* 0. DECLARATIONS
!! ------------ !! ------------
!! !!
#ifdef MNH_RTTOV
USE MODD_CST USE MODD_CST
USE MODD_PARAMETERS USE MODD_PARAMETERS
USE MODD_GRID_n USE MODD_GRID_n
...@@ -488,6 +489,7 @@ END INTERFACE ...@@ -488,6 +489,7 @@ END INTERFACE
!!! #include "rttov_errorhandling.interface" !!! #include "rttov_errorhandling.interface"
!!! #include "rttov_dealloc_coef.interface" !!! #include "rttov_dealloc_coef.interface"
!!! #include "rttov_errorreport.interface" !!! #include "rttov_errorreport.interface"
#endif
!!! !!!
!!!* 0.1 DECLARATIONS OF DUMMY ARGUMENTS : !!!* 0.1 DECLARATIONS OF DUMMY ARGUMENTS :
!!! !!!
...@@ -520,6 +522,8 @@ LOGICAL, INTENT(IN) :: OUSERI ! logical switch to compute both ...@@ -520,6 +522,8 @@ LOGICAL, INTENT(IN) :: OUSERI ! logical switch to compute both
INTEGER, DIMENSION(:,:), INTENT(IN) :: KRTTOVINFO ! platform, satelit, sensor, INTEGER, DIMENSION(:,:), INTENT(IN) :: KRTTOVINFO ! platform, satelit, sensor,
! and selection calculations ! and selection calculations
CHARACTER(LEN=28), INTENT(IN) :: HFMFILE ! Name of FM-file to write CHARACTER(LEN=28), INTENT(IN) :: HFMFILE ! Name of FM-file to write
!
#ifdef MNH_RTTOV
!!! !!!
!!!* 0.2 DECLARATIONS OF LOCAL VARIABLES !!!* 0.2 DECLARATIONS OF LOCAL VARIABLES
!!! !!!
...@@ -1767,5 +1771,8 @@ DO JSAT=1,IJSAT ! loop over sensors ...@@ -1767,5 +1771,8 @@ DO JSAT=1,IJSAT ! loop over sensors
END DO END DO
DEALLOCATE(ZULAT,ZULON,ZANGS,IMSURF) DEALLOCATE(ZULAT,ZULON,ZANGS,IMSURF)
DEALLOCATE(ZAV,ZSAV,ZSSV,ZCV,ZAP,ZAP_HL) DEALLOCATE(ZAV,ZSAV,ZSSV,ZCV,ZAP,ZAP_HL)
#else
PRINT *, "RTTOV LIBRARY NOT AVAILABLE = ###CALL_RTTOV####"
#endif
! !
END SUBROUTINE CALL_RTTOV END SUBROUTINE CALL_RTTOV
...@@ -130,11 +130,11 @@ endif ...@@ -130,11 +130,11 @@ endif
########################################################## ##########################################################
# Source RTTOV # # Source RTTOV #
########################################################## ##########################################################
ifdef MNH_RTTOV
DIR_RTTOV += LIB/RTTOV/src DIR_RTTOV += LIB/RTTOV/src
#CPPFLAGS_RTTOV = #CPPFLAGS_RTTOV =
INC_RTTOV = -I$(B)LIB/RTTOV/src INC_RTTOV = -I$(B)LIB/RTTOV/src
# #
ifdef DIR_RTTOV
DIR_MASTER += $(DIR_RTTOV) DIR_MASTER += $(DIR_RTTOV)
CPPFLAGS += $(CPPFLAGS_RTTOV) CPPFLAGS += $(CPPFLAGS_RTTOV)
INC += $(INC_RTTOV) INC += $(INC_RTTOV)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment