Skip to content
Snippets Groups Projects
Commit de9d934f authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 29/11/2022: reduce line size for mesonh compilation

parent 9193f0ae
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/common/micro/mode_ice4_slow.F90
+ 2
− 1
View file @ de9d934f
...@@ -139,7 +139,8 @@ DO JL=1, KSIZE ...@@ -139,7 +139,8 @@ DO JL=1, KSIZE
* PLBDAS(JL)**ICEP%XEXIAGGS & * PLBDAS(JL)**ICEP%XEXIAGGS &
* PRHODREF(JL)**(-ICED%XCEXVT) * PRHODREF(JL)**(-ICED%XCEXVT)
#else #else
* PRST(JL) * (1+(ICED%XFVELOS/PLBDAS(JL))**ICED%XALPHAS)**(-ICED%XNUS+ICEP%XEXIAGGS/ICED%XALPHAS) & * PRST(JL) * (1+(ICED%XFVELOS/PLBDAS(JL))**ICED%XALPHAS)**&
(-ICED%XNUS+ICEP%XEXIAGGS/ICED%XALPHAS) &
* PRHODREF(JL)**(-ICED%XCEXVT+1.) & * PRHODREF(JL)**(-ICED%XCEXVT+1.) &
* ((PLBDAS(JL))**(ICED%XBS+ICEP%XEXIAGGS)) * ((PLBDAS(JL))**(ICED%XBS+ICEP%XEXIAGGS))
#endif #endif
......
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