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

Juan 28/07/2022:write_lfifm1_for_diag_supp.f9, Pb with syntax of CPP macro test/ifdef for RTTOV

parent c6285382
No related branches found
No related tags found
No related merge requests found
......@@ -846,15 +846,15 @@ END IF
!
IF (NRTTOVINFO(1,1) /= NUNDEF) THEN
! PRINT*,'YOU ASK FOR BRIGHTNESS TEMPERATURE COMPUTED BY THE RTTOV CODE'
#ifdef MNH_RTTOV_8
#if defined(MNH_RTTOV_8)
CALL CALL_RTTOV8(NDLON, NFLEV, NSTATM, XEMIS(:,:,1), XTSRAD, XSTATM, XTHT, XRT, &
XPABST, XZZ, XMFCONV, XCLDFR, XUT(:,:,IKB), XVT(:,:,IKB), &
LUSERI, NRTTOVINFO, TPFILE )
#elif MNH_RTTOV_11
#elif defined(MNH_RTTOV_11)
CALL CALL_RTTOV11(NDLON, NFLEV, XEMIS(:,:,1), XTSRAD, XTHT, XRT, &
XPABST, XZZ, XMFCONV, XCLDFR, XUT(:,:,IKB), XVT(:,:,IKB), &
LUSERI, NRTTOVINFO, TPFILE )
#elif MNH_RTTOV_13
#elif defined(MNH_RTTOV_13)
CALL CALL_RTTOV13(NDLON, NFLEV, XEMIS(:,:,1), XTSRAD, XTHT, XRT, &
XPABST, XZZ, XMFCONV, XCLDFR, XUT(:,:,IKB), XVT(:,:,IKB), &
LUSERI, NRTTOVINFO, TPFILE )
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment