Skip to content
Snippets Groups Projects
Commit 39953b60 authored by Clement Rousset's avatar Clement Rousset
Browse files

make ICE_AGRIF work. It probably did not in debug mode.

parent fff940c9
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/SAS/sbcssm.F90
+ 3
− 3
View file @ 39953b60
...@@ -129,9 +129,9 @@ CONTAINS ...@@ -129,9 +129,9 @@ CONTAINS
ssu_m(:,:) = 0._wp ssu_m(:,:) = 0._wp
ssv_m(:,:) = 0._wp ssv_m(:,:) = 0._wp
ssh_m(:,:) = 0._wp ssh_m(:,:) = 0._wp
IF( .NOT. ln_linssh ) e3t_m(:,:) = e3t_0(:,:,1) !clem: necessary at least for sas2D e3t_m(:,:) = e3t_0(:,:,1) !clem: necessary at least for sas2D
frq_m(:,:) = 1._wp ! - - frq_m(:,:) = 1._wp ! - -
ssh (:,:,Kmm) = 0._wp ! - - ssh (:,:,Kmm) = 0._wp ! - -
ENDIF ENDIF
IF ( nn_ice == 1 ) THEN IF ( nn_ice == 1 ) THEN
...@@ -159,7 +159,7 @@ CONTAINS ...@@ -159,7 +159,7 @@ CONTAINS
CALL iom_put( 'sst_m', sst_m ) CALL iom_put( 'sst_m', sst_m )
CALL iom_put( 'sss_m', sss_m ) CALL iom_put( 'sss_m', sss_m )
CALL iom_put( 'ssh_m', ssh_m ) CALL iom_put( 'ssh_m', ssh_m )
IF( .NOT.ln_linssh ) CALL iom_put( 'e3t_m', e3t_m ) CALL iom_put( 'e3t_m', e3t_m )
IF( ln_read_frq ) CALL iom_put( 'frq_m', frq_m ) IF( ln_read_frq ) CALL iom_put( 'frq_m', frq_m )
ENDIF ENDIF
! !
......
tests/ICE_AGRIF/EXPREF/1_namelist_cfg
+ 1
− 1
View file @ 39953b60
...@@ -104,7 +104,7 @@ ...@@ -104,7 +104,7 @@
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
&namagrif ! AGRIF zoom ("key_agrif") &namagrif ! AGRIF zoom ("key_agrif")
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
ln_init_chfrpar = .true. ! initialize child grids from parent ln_chk_bathy = .false. ! =T check the parent bathymetry
/ /
!!====================================================================== !!======================================================================
!! *** Top/Bottom boundary condition *** !! !! *** Top/Bottom boundary condition *** !!
......
tests/ICE_AGRIF/EXPREF/namelist_cfg
+ 1
− 0
View file @ 39953b60
...@@ -104,6 +104,7 @@ ...@@ -104,6 +104,7 @@
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
&namagrif ! AGRIF zoom ("key_agrif") &namagrif ! AGRIF zoom ("key_agrif")
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
ln_chk_bathy = .false. ! =T check the parent bathymetry
/ /
!!====================================================================== !!======================================================================
!! *** Top/Bottom boundary condition *** !! !! *** Top/Bottom boundary condition *** !!
......
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