now passing parallel tests in hill: MPI reduce even in a single openm…

…p thread deadlocks under gfortran/mvapich-1.2.0 #$@%?! apparently may not call print_chsum from a parallel loop... yet this did work
openwfm · Mar 31, 2011 · f28515b · f28515b
1 parent 6ec4210
commit f28515b
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/wrfv2_fire/phys/module_fr_sfire_atm.F b/wrfv2_fire/phys/module_fr_sfire_atm.F
@@ -920,10 +920,6 @@ subroutine interpolate_wind2fire_height(id,       & ! to identify debugging prin
   call message(msg)
 !$OMP END CRITICAL(SFIRE_ATM_CRIT)
 
-  call print_chsum(id,ifms,ifme,1,1,jfms,jfme,ifds,ifde,1,1,jfds,jfde,ifps,ifpe,1,1,jfps,jfpe,0,0,0,uf,'uf')
-  call print_chsum(id,ifms,ifme,1,1,jfms,jfme,ifds,ifde,1,1,jfds,jfde,ifps,ifpe,1,1,jfps,jfpe,0,0,0,vf,'vf')
-
-
   return
 
   91 call crash('interpolate_wind2fire_height: fire wind height too large, increase kdmax or atm height')