Commit 137c9115 authored by Knut's avatar Knut

calculate ip-gradients with respect to old positions if MUDFLAT

parent 179586ba
......@@ -67,7 +67,12 @@
#else
use domain, only: dx,dy
#endif
use variables_3d, only: kmin,hn,hun,hvn,idpdx,idpdy,buoy,ssun,ssvn,ssen
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
IMPLICIT NONE
!
! !PUBLIC DATA MEMBERS:
......
......@@ -38,7 +38,7 @@
!
! !USES:
use internal_pressure
use variables_3d, only: hn,buoy,sseo
use variables_3d, only: buoy,sseo
use domain, only: H,az,au,av
!$ use omp_lib
IMPLICIT NONE
......
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