Skip to content
Snippets Groups Projects
Commit ba88d4c0 authored by Juan Escobar's avatar Juan Escobar
Browse files

Juan 08/01/2024:SURFEX/*.F90 , more missing USE MODI_GET_LUOUT

parent 4267692a
No related branches found
No related tags found
No related merge requests found
...@@ -85,6 +85,7 @@ USE MODD_ISBA_PAR, ONLY : XEMISVEG ...@@ -85,6 +85,7 @@ USE MODD_ISBA_PAR, ONLY : XEMISVEG
! !
USE MODE_THERMOS USE MODE_THERMOS
USE MODI_ABOR1_SFX USE MODI_ABOR1_SFX
USE MODI_GET_LUOUT
! !
! !
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
......
...@@ -51,6 +51,7 @@ SUBROUTINE CHECK_TEB (TOP, BOP, NT, NB, TD, TPN, TIR, GDM, GRM, HM, CT, & ...@@ -51,6 +51,7 @@ SUBROUTINE CHECK_TEB (TOP, BOP, NT, NB, TD, TPN, TIR, GDM, GRM, HM, CT, &
USE PARKIND1, ONLY : JPRB USE PARKIND1, ONLY : JPRB
! !
USE MODI_ABOR1_SFX USE MODI_ABOR1_SFX
USE MODI_GET_LUOUT
! !
IMPLICIT NONE IMPLICIT NONE
! !
......
...@@ -115,6 +115,7 @@ USE MODI_TRAFFIC_FLUX_MODULATION ...@@ -115,6 +115,7 @@ USE MODI_TRAFFIC_FLUX_MODULATION
USE MODI_UTCI_TEB USE MODI_UTCI_TEB
USE MODI_UTCIC_STRESS USE MODI_UTCIC_STRESS
USE MODI_BUDGET_HYDRO_n USE MODI_BUDGET_HYDRO_n
USE MODI_GET_LUOUT
! !
USE YOMHOOK, ONLY : LHOOK, DR_HOOK USE YOMHOOK, ONLY : LHOOK, DR_HOOK
USE PARKIND1, ONLY : JPRB USE PARKIND1, ONLY : JPRB
......
...@@ -51,6 +51,7 @@ USE MODD_SURF_PAR, ONLY : XUNDEF ...@@ -51,6 +51,7 @@ USE MODD_SURF_PAR, ONLY : XUNDEF
USE MODD_CSTS, ONLY : XSTEFAN USE MODD_CSTS, ONLY : XSTEFAN
! !
USE MODI_ABOR1_SFX USE MODI_ABOR1_SFX
USE MODI_GET_LUOUT
! !
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB USE PARKIND1 ,ONLY : JPRB
......
...@@ -44,6 +44,7 @@ USE MODD_CSTS, ONLY: XDAY ...@@ -44,6 +44,7 @@ USE MODD_CSTS, ONLY: XDAY
USE MODI_ADD_FORECAST_TO_DATE_SURF USE MODI_ADD_FORECAST_TO_DATE_SURF
USE MODI_SUBSTRACT_TO_DATE_SURF USE MODI_SUBSTRACT_TO_DATE_SURF
USE MODI_ABOR1_SFX USE MODI_ABOR1_SFX
USE MODI_GET_LUOUT
!------------------------------------------------------------------------------ !------------------------------------------------------------------------------
! !
!* 0. DECLARATIONS !* 0. DECLARATIONS
......
...@@ -61,7 +61,8 @@ FUNCTION TRAD_BODY_ISBA(HPROGRAM, PSCA_SW, PREF_SW, PEMIT_LW, PLW_RAD,& ...@@ -61,7 +61,8 @@ FUNCTION TRAD_BODY_ISBA(HPROGRAM, PSCA_SW, PREF_SW, PEMIT_LW, PLW_RAD,&
! ------------ ! ------------
! !
USE MODD_CSTS, ONLY : XSTEFAN, XPI, XSURF_EPSILON, XI0 USE MODD_CSTS, ONLY : XSTEFAN, XPI, XSURF_EPSILON, XI0
USE MODI_ABOR1_SFX USE MODI_ABOR1_SFX
USE MODI_GET_LUOUT
! !
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB USE PARKIND1 ,ONLY : JPRB
......
...@@ -91,7 +91,8 @@ FUNCTION TRAD_BODY_TEB(HPROGRAM, PSCA_SW, PREF_SW_FAC, PREF_SW_GRND, & ...@@ -91,7 +91,8 @@ FUNCTION TRAD_BODY_TEB(HPROGRAM, PSCA_SW, PREF_SW_FAC, PREF_SW_GRND, &
! ------------ ! ------------
! !
USE MODD_CSTS, ONLY : XSTEFAN, XPI, XSURF_EPSILON, XI0 USE MODD_CSTS, ONLY : XSTEFAN, XPI, XSURF_EPSILON, XI0
USE MODI_ABOR1_SFX USE MODI_ABOR1_SFX
USE MODI_GET_LUOUT
! !
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB USE PARKIND1 ,ONLY : JPRB
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment