MODULE lmdz_spla_ini
INTEGER, SAVE :: is_oce
REAL, SAVE :: RNAVO
!$OMP THREADPRIVATE(is_oce,RNAVO)

CONTAINS
SUBROUTINE spla_ini(is_oce_in,RNAVO_in)
IMPLICIT NONE
INTEGER is_oce_in
REAL RNAVO_in
is_oce=is_oce_in
RNAVO=RNAVO_in
END SUBROUTINE spla_ini
END MODULE lmdz_spla_ini