Skip to content
Permalink
Browse files

relaxed consistency: allow lfn<0 and tign=time_now because of rounding

  • Loading branch information...
Jan Mandel
Jan Mandel committed Mar 19, 2011
1 parent 00495c5 commit 0a017425e46c835051bed2f8f2a4ad2756eb702f
Showing with 2 additions and 2 deletions.
  1. +2 −2 wrfv2_fire/phys/module_fr_sfire_core.F
@@ -324,11 +324,11 @@ subroutine check_lfn_tign_ij(i,j,s,time_now,lfnij,tignij)
character(len=128):: msg
!*** executable

if(.not.(lfnij<0. .eqv. tignij<time_now))then
if(lfnij>0. .and. tignij<time_now)then
!$OMP CRITICAL(SFIRE_CORE_CRIT)
write(msg,*)'i,j=',i,j,' lfn=',lfnij,' tign=',tignij,' time_now=',time_now
call message(msg)
msg=s//': must have lfn<0 <=> tign<time_now'
msg=s//': inconsistent state: lfn>0 and tign<time_now'
call crash(msg)
!$OMP END CRITICAL(SFIRE_CORE_CRIT)
endif

0 comments on commit 0a01742

Please sign in to comment.
You can’t perform that action at this time.