diff --git a/src/arome/ext/aroini_neb.F90 b/src/arome/ext/aroini_neb.F90 new file mode 100644 index 0000000000000000000000000000000000000000..142440194f23047de7828780d7f38bc57eadec0e --- /dev/null +++ b/src/arome/ext/aroini_neb.F90 @@ -0,0 +1,54 @@ +SUBROUTINE AROINI_NEB + USE PARKIND1, ONLY : JPRB + USE YOMHOOK , ONLY : LHOOK, DR_HOOK +!**** *AROINI_NEB* - +! Purpose. +! -------- +! Call Meso-NH routine INI_NEB +! (setup of constants for nebulosity computation) +! +!** Interface. +! ---------- +! *CALL* *AROINI_NEB + +! Explicit arguments : +! -------------------- +! None + +! Implicit arguments : +! -------------------- +! + +! Method. +! ------- +! See documentation + +! Externals. +! ---------- + +! Reference. +! ---------- +! Documentation AROME + +! Author. +! ------- +! S. Riette + +! Modifications. +! -------------- +! Original : 24 Aug 2011 +! ------------------------------------------------------------------ + +USE MODI_INI_NEB + +IMPLICIT NONE +REAL(KIND=JPRB) :: ZHOOK_HANDLE +! ------------------------------------------------------------------ + +! 1. Set implicit default values for MODD_NEB + +IF (LHOOK) CALL DR_HOOK('AROINI_NEB',0,ZHOOK_HANDLE) +CALL INI_NEB +IF (LHOOK) CALL DR_HOOK('AROINI_NEB',1,ZHOOK_HANDLE) + +END SUBROUTINE AROINI_NEB diff --git a/src/arome/ext/aroini_neb.h b/src/arome/ext/aroini_neb.h new file mode 100644 index 0000000000000000000000000000000000000000..85aa3b9da4c9472db0db6717afdaea1b2126228c --- /dev/null +++ b/src/arome/ext/aroini_neb.h @@ -0,0 +1,4 @@ +INTERFACE +SUBROUTINE AROINI_NEB +END SUBROUTINE AROINI_NEB +END INTERFACE