Skip to content
Snippets Groups Projects
Commit 886793d4 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe & Juan 20/03/2019: SURFEX: missing use modi_get_luout in coupling_seaflux_n

parent 4b33784b
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/SURFEX/coupling_seafluxn.F90
+ 2
− 1
View file @ 886793d4
...@@ -51,7 +51,7 @@ SUBROUTINE COUPLING_SEAFLUX_n (CHS, DTS, DGS, O, OR, G, S, DST, SLT, & ...@@ -51,7 +51,7 @@ SUBROUTINE COUPLING_SEAFLUX_n (CHS, DTS, DGS, O, OR, G, S, DST, SLT, &
!! Modified 11/2014 : J. Pianezze : add currents for wave coupling !! Modified 11/2014 : J. Pianezze : add currents for wave coupling
!! Modified 02/2019 : S. Bielli Sea salt : significant sea wave height influences salt emission; 5 salt modes !! Modified 02/2019 : S. Bielli Sea salt : significant sea wave height influences salt emission; 5 salt modes
!! Modified 03/2019 : P. Wautelet: correct ZWS when variable not present in file !! Modified 03/2019 : P. Wautelet: correct ZWS when variable not present in file
!! !! Modified 03/2019 : P. Wautelet: missing use MODI_GET_LUOUT
!!--------------------------------------------------------------------- !!---------------------------------------------------------------------
! !
! !
...@@ -109,6 +109,7 @@ USE MODI_COUPLING_ICEFLUX_n ...@@ -109,6 +109,7 @@ USE MODI_COUPLING_ICEFLUX_n
USE MODI_SEAICE_GELATO1D_n USE MODI_SEAICE_GELATO1D_n
! !
USE MODI_COUPLING_SLT_n USE MODI_COUPLING_SLT_n
USE MODI_GET_LUOUT
! !
IMPLICIT NONE IMPLICIT NONE
! !
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme