Skip to content
Snippets Groups Projects
Commit 7f871a6c authored by Guillaume Samson's avatar Guillaume Samson :snowman2:
Browse files

Merge branch '29-zdftke-and-zdfgls-nn_ice-0' into 'branch_4.2'

Ice thickness dependent roughness in GLS and TKE

See merge request !49

(cherry picked from commit 7c412688)

79aab267 Ice thickness dependent roughness in GLS and TKE
parent 5cf0c3d6
No related branches found
No related tags found
No related merge requests found
......@@ -969,6 +969,9 @@ CONTAINS
CASE DEFAULT
CALL ctl_stop( 'zdf_tke_init: wrong value for nn_mxlice, should be 0,1,2,3 ')
END SELECT
IF ( (nn_mxlice>1).AND.(nn_ice<2) ) THEN
CALL ctl_stop( 'zdf_tke_init: with no ice model, nn_mxlice must be 0 or 1')
ENDIF
WRITE(numout,*)
ENDIF
......
......@@ -762,6 +762,9 @@ CONTAINS
CASE DEFAULT
CALL ctl_stop( 'zdf_tke_init: wrong value for nn_mxlice, should be 0,1,2,3 or 4')
END SELECT
IF ( (nn_mxlice>1).AND.(nn_ice<2) ) THEN
CALL ctl_stop( 'zdf_tke_init: with no ice model, nn_mxlice must be 0 or 1')
ENDIF
ENDIF
WRITE(numout,*) ' Langmuir cells parametrization ln_lc = ', ln_lc
WRITE(numout,*) ' coef to compute vertical velocity of LC rn_lc = ', rn_lc
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment