Commit c9d3cc6e authored by pvol's avatar pvol
Browse files

fix removed out_turb entirely recompiling with pgi worked

parent 3a368b73
x
state real Tmeas ij misc 1 - i012h "Thrust" "Thrust " ""
rconfig integer out_turb namelist,time_control 1 0 - "debug: show write statements in module bl_turbine"
state real Tmeas ij misc 1 - i012h "Thrust" "Thrust " ""
rconfig integer bl_turbine namelist,physics max_domains 0 ir "bl_turbine" "" ""
rconfig real R0frac namelist,physics 1 1.5 i012r "initial length scale times R0" "" ""
rconfig character production namelist,physics 1 'what' ir "turbulence added in turbine wake" "" ""
......
......@@ -952,7 +952,6 @@ BENCH_START(pbl_driver_tim)
& ,rmol=grid%rmol, ch=grid%ch &
& ,qcg=grid%qcg, grav_settling=config_flags%grav_settling &
& ,Tmeas=grid%Tmeas & !wf_ewp
& ,out_turb=config_flags%out_turb & !wf_ewp
& ,R0frac=config_flags%R0frac & !wf_ewp
& ,production=config_flags%production & !wf_ewp
! & ,K_m=grid%K_m, K_h=grid%K_h, K_q=grid%K_q &
......
......@@ -1157,7 +1157,6 @@ endif
,grid%rv_up,grid%rc_up,grid%u_up,grid%v_up,grid%frac_up &
,grid%ccn_conc & ! RAS
,grid%QKE &!JOE-for mynn
,config_flags%out_turb & !wf_ewp
,grid%landusef,grid%landusef2,grid%mosaic_cat_index & ! danli mosaic
,grid%TSK_mosaic,grid%TSLB_mosaic,grid%SMOIS_mosaic,grid%SH2O_mosaic & ! danli mosaic
,grid%CANWAT_mosaic,grid%SNOW_mosaic,grid%SNOWH_mosaic,grid%SNOWC_mosaic & ! danli mosaic
......
This diff is collapsed.
......@@ -41,7 +41,7 @@ CONTAINS
,qke,Sh3d &
,qke_adv,bl_mynn_tkeadvect & !ACF for QKE advection
,tsq,qsq,cov,rmol,ch,qcg,grav_settling &
,Tmeas,out_turb,R0frac,production & ! wf_ewp
,Tmeas,R0frac,production & ! wf_ewp
,dqke,qWT,qSHEAR,qBUOY,qDISS,bl_mynn_tkebudget & ! JOE - MYNN TKE budget
,bl_mynn_cloudpdf & ! JOE - cloud PDF tests
,bl_mynn_mixlength & ! JAYMES
......@@ -370,8 +370,8 @@ CONTAINS
INTEGER, INTENT(IN ) :: bl_pbl_physics, ra_lw_physics,&
sf_sfclay_physics,sf_urban_physics,windfarm_opt,&
out_turb ! wf_ewp
sf_sfclay_physics,sf_urban_physics,windfarm_opt
INTEGER, INTENT(IN ) :: ysu_topdown_pblmix
......
......@@ -210,7 +210,6 @@ CONTAINS
,rv_up, rc_up, u_up, v_up, frac_up & ! Optional for qnse
,ccn_conc & ! RAS
,QKE & !for MYNN
,out_turb & !wf_ewp
,landusef,landusef2,mosaic_cat_index & ! danli mosaic
,TSK_mosaic,TSLB_mosaic,SMOIS_mosaic,SH2O_mosaic & ! danli mosaic
,CANWAT_mosaic,SNOW_mosaic,SNOWH_mosaic,SNOWC_mosaic & ! danli mosaic
......@@ -699,8 +698,6 @@ CONTAINS
REAL,OPTIONAL, DIMENSION( ims:ime , jms:jme ) , &
INTENT(OUT) :: wm_temf
!wf_ewp
INTEGER, INTENT(IN) :: out_turb
! Local data
......@@ -1079,7 +1076,7 @@ integer myproc
ims,ime,jms,jme,its,ite,jts,jte,&
ids,ide,jds,jde)
CASE (2) !wf_ewp
CALL INIT_EWP(dx=dx,out_turb=out_turb, &
CALL INIT_EWP(dx=dx, &
& config_flags=config_flags, &
& lat=xlat,lon=xlong, &
& IDS=IDS,IDE=IDE,JDS=JDS,JDE=JDE,KDS=KDS,KDE=KDE, &
......
Supports Markdown
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