Commit 6140bb8a authored by Knut's avatar Knut
Browse files

ss_nn_MUDFLAT: remove MUDFLAT case from internal_pressure

parent 3c395c23
......@@ -63,12 +63,7 @@
use exceptions
use domain, only: imin,imax,jmin,jmax,kmax,az,au,av,H,HU,HV
use domain, only: dxu,dyv
use variables_3d, only: kmin,hun,hvn,idpdx,idpdy,buoy,ssun,ssvn,ssen
#ifdef MUDFLAT
use variables_3d, only: hn=>ho
#else
use variables_3d, only: hn
#endif
use variables_3d, only: kmin,hn,hun,hvn,idpdx,idpdy,buoy,ssun,ssvn,ssen
IMPLICIT NONE
!
! !PUBLIC DATA MEMBERS:
......
Markdown is supported
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