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

debug evp for the future 4.2 (i.e. unmask zs12)

parent 1f454a34
Branches
No related tags found
No related merge requests found
......@@ -453,7 +453,7 @@ CONTAINS
! stress at F points (zkt/=0 if landfast)
zs12(ji,jj)= ( zs12(ji,jj) * zalph2 + zp_delf * ( zds(ji,jj) * z1_ecc2 * (1._wp + zkt) ) * 0.5_wp ) &
& * z1_alph2 * zmsk(ji,jj) ! zmsk is for reducing cpu
& * z1_alph2
END_2D
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment