Skip to content

Commit

Permalink
fix ForestFire w/MONTHLY_AVG, metno/emep-mscw#153
Browse files Browse the repository at this point in the history
  • Loading branch information
avaldebe committed Jul 1, 2019
1 parent b5aabc4 commit 68b4320
Showing 1 changed file with 0 additions and 11 deletions.
11 changes: 0 additions & 11 deletions ForestFire_mod.f90
Original file line number Diff line number Diff line change
Expand Up @@ -585,17 +585,6 @@ subroutine checkNewFFrecord(ymdh, ncFileID,fname,new,nstart)
record_old, nctime2string("(YYYY-MM-DD hh:mm)",fdays(nstart)), &
fdays(nstart), persistence
end if
if((fdays(nstart)<ncday(0)).or.(fdays(nstart)>=(ncday(1)+1.0)))then
if(MasterProc)then
write(*,*)"ForestFire: no records between ",&
nctime2string("YYYY-MM-DD hh:mm",ncday(0))," and ",&
nctime2string("YYYY-MM-DD hh:mm",ncday(1)+1.0)
call CheckStop(BBneed_date,"Missing ForestFire records")
end if
burning(:,:) = .false.
new=.false.
return
end if

if ( .not. monthlyEmis ) then
if((fdays(nstart)<ncday(0)).or.(fdays(nstart)>=(ncday(1)+1.0)))then
Expand Down

0 comments on commit 68b4320

Please sign in to comment.