Commit 8d9668e2 authored by frv-bjb's avatar frv-bjb
Browse files

Fix for max(,) problems with ip_fac

parent a2f792f6
!$Id: m3d.F90,v 1.36 2007-03-07 13:09:26 frv-bjb Exp $
!$Id: m3d.F90,v 1.37 2007-03-30 09:31:14 frv-bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -403,7 +403,7 @@
huo=hun
hvo=hvn
ip_fac=_ONE_
if (ip_ramp .gt. 0) ip_fac=min( float(1.0) ,float(n/float(ip_ramp)))
if (ip_ramp .gt. 0) ip_fac=min( _ONE_ , n*_ONE_/ip_ramp)
if (ufirst) then
call uu_momentum_3d(n,bdy3d)
call vv_momentum_3d(n,bdy3d)
......
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