diff --git a/src/OFF/dtadyn.F90 b/src/OFF/dtadyn.F90 index 253d699db5d2b13d0e708af11cfb31d1515b4c69..3a68e3128e1e596f150662a3e74f17d1e957059d 100644 --- a/src/OFF/dtadyn.F90 +++ b/src/OFF/dtadyn.F90 @@ -24,7 +24,7 @@ MODULE dtadyn USE dom_oce ! ocean domain: variables #if defined key_qco USE domqco ! variable volume -#else +#elif ! defined key_linssh USE domvvl #endif USE zdf_oce ! ocean vertical physics: variables @@ -53,7 +53,7 @@ MODULE dtadyn PUBLIC dta_dyn_init ! called by nemo_init PUBLIC dta_dyn ! called by nemo_gcm PUBLIC dta_dyn_atf ! called by nemo_gcm -#if ! defined key_qco +#if ! defined key_qco && ! defined key_linssh PUBLIC dta_dyn_sf_interp ! called by nemo_gcm #endif #if defined key_sed_off @@ -345,6 +345,7 @@ CONTAINS CALL iom_close( inum ) ! close file ENDIF ! +#if ! defined key_linssh #if defined key_qco CALL dom_qco_r3c( ssh(:,:,Kbb), r3t(:,:,Kbb), r3u(:,:,Kbb), r3v(:,:,Kbb) ) CALL dom_qco_r3c( ssh(:,:,Kmm), r3t(:,:,Kmm), r3u(:,:,Kmm), r3v(:,:,Kmm) ) @@ -356,6 +357,7 @@ CONTAINS CALL dta_dyn_sf_interp( nit000, Kmm ) CALL dta_dyn_sf_interp( nit000, Kbb ) +#endif #endif ENDIF ! @@ -390,7 +392,7 @@ CONTAINS END SUBROUTINE dta_dyn_atf -#if ! defined key_qco +#if ! defined key_qco && ! defined key_linssh SUBROUTINE dta_dyn_sf_interp( kt, Kmm ) !!--------------------------------------------------------------------- diff --git a/src/OFF/nemogcm.F90 b/src/OFF/nemogcm.F90 index 9cffd0190d1a01528c6ce0c37503905e632353d2..9e83a72731fbf1f2ad7821634dbb064606b0e729 100644 --- a/src/OFF/nemogcm.F90 +++ b/src/OFF/nemogcm.F90 @@ -62,7 +62,7 @@ MODULE nemogcm USE prtctl ! Print control (prt_ctl_init routine) USE timing ! Timing USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) -#if defined key_qco +#if defined key_qco || defined key_linssh USE stpmlf , ONLY : Nbb, Nnn, Naa, Nrhs ! time level indices #else USE step , ONLY : Nbb, Nnn, Naa, Nrhs ! time level indices @@ -150,7 +150,7 @@ CONTAINS Nnn = Naa Naa = Nrhs ! -# if ! defined key_qco +# if ! defined key_qco && ! defined key_linssh IF( .NOT.ln_linssh ) CALL dta_dyn_sf_interp( istp, Nnn ) ! calculate now grid parameters # endif