Skip to content

Commit

Permalink
release of JAGURS-D0515.a
Browse files Browse the repository at this point in the history
Reupload to get a DOI budge
  • Loading branch information
jagurs-admin authored Apr 2, 2020
1 parent 348fe89 commit 5b50e8d
Show file tree
Hide file tree
Showing 5 changed files with 10 additions and 9 deletions.
3 changes: 2 additions & 1 deletion src/HISTORY
Original file line number Diff line number Diff line change
Expand Up @@ -588,4 +588,5 @@ DEBUG about the problem on "MULTI=ON", "init_disp_fault=0" and "multrupt=1" is a
(contributed by naotaka-chikasada. Thanks!).

--------------------------------------------------------------------------------

2020.04.02
- Upload again to get a DOI badge
4 changes: 2 additions & 2 deletions src/mod_fxy.f90
Original file line number Diff line number Diff line change
Expand Up @@ -721,7 +721,7 @@ subroutine fxynl_rwg(wfld,dfld,ffld,ifz,cfs,cfl,cflag,dt,th0,dth,joff,nlon,nlat,
if(hz(i+1,j) + ddx(i,j) > hz(i,j) + ddx(i,j)) discharge = -discharge
fx(i,j) = discharge
if(brokenx(i,j) == 0) then
btx(i,j) = broken_rate*(btx(i,j) - dhigh) + dhigh
btx(i,j) = broken_rate*(btx(i,j) + dhigh) - dhigh
brokenx(i,j) = 1
end if
end if
Expand Down Expand Up @@ -784,7 +784,7 @@ subroutine fxynl_rwg(wfld,dfld,ffld,ifz,cfs,cfl,cflag,dt,th0,dth,joff,nlon,nlat,
if(hz(i,j+1) + ddy(i,j) > hz(i,j) + ddy(i,j)) discharge = -discharge
fy(i,j) = discharge
if(brokeny(i,j) == 0) then
bty(i,j) = broken_rate*(bty(i,j) - dhigh) + dhigh
bty(i,j) = broken_rate*(bty(i,j) + dhigh) - dhigh
brokeny(i,j) = 1
end if
end if
Expand Down
4 changes: 2 additions & 2 deletions src/mod_fxy_cartesian.f90
Original file line number Diff line number Diff line change
Expand Up @@ -479,7 +479,7 @@ subroutine fxynl_rwg(wfld,dfld,ffld,ifz,cfs,cfl,dt,dxdy,nlon,nlat,gflag,smallh,b
if(hz(i+1,j) + ddx(i,j) > hz(i,j) + ddx(i,j)) discharge = -discharge
fx(i,j) = discharge
if(brokenx(i,j) == 0) then
btx(i,j) = broken_rate*(btx(i,j) - dhigh) + dhigh
btx(i,j) = broken_rate*(btx(i,j) + dhigh) - dhigh
brokenx(i,j) = 1
end if
end if
Expand Down Expand Up @@ -718,7 +718,7 @@ subroutine fxynl_rwg(wfld,dfld,ffld,ifz,cfs,cfl,dt,dxdy,nlon,nlat,gflag,smallh,b
if(hz(i,j+1) + ddy(i,j) > hz(i,j) + ddy(i,j)) discharge = -discharge
fy(i,j) = discharge
if(brokeny(i,j) == 0) then
bty(i,j) = broken_rate*(bty(i,j) - dhigh) + dhigh
bty(i,j) = broken_rate*(bty(i,j) + dhigh) - dhigh
brokeny(i,j) = 1
end if
end if
Expand Down
4 changes: 2 additions & 2 deletions src/mod_fxy_disp.f90
Original file line number Diff line number Diff line change
Expand Up @@ -983,7 +983,7 @@ subroutine fxynl_rwg_disp(wfld,dfld,ffld,ifz,cfs,cfl,cflag,dt,th0,dth,joff,nlon,
if(hz(i+1,j) + ddx(i,j) > hz(i,j) + ddx(i,j)) discharge = -discharge
fx(i,j) = discharge
if(brokenx(i,j) == 0) then
btx(i,j) = broken_rate*(btx(i,j) - dhigh) + dhigh
btx(i,j) = broken_rate*(btx(i,j) + dhigh) - dhigh
brokenx(i,j) = 1
end if
end if
Expand Down Expand Up @@ -1235,7 +1235,7 @@ subroutine fxynl_rwg_disp(wfld,dfld,ffld,ifz,cfs,cfl,cflag,dt,th0,dth,joff,nlon,
if(hz(i,j+1) + ddy(i,j) > hz(i,j) + ddy(i,j)) discharge = -discharge
fy(i,j) = discharge
if(brokeny(i,j) == 0) then
bty(i,j) = broken_rate*(bty(i,j) - dhigh) + dhigh
bty(i,j) = broken_rate*(bty(i,j) + dhigh) - dhigh
brokeny(i,j) = 1
end if
end if
Expand Down
4 changes: 2 additions & 2 deletions src/mod_fxy_disp_cartesian.f90
Original file line number Diff line number Diff line change
Expand Up @@ -900,7 +900,7 @@ subroutine fxynl_rwg_disp(wfld,dfld,ffld,ifz,cfs,cfl,dt,dxdy,nlon,nlat, &
if(hz(i+1,j) + ddx(i,j) > hz(i,j) + ddx(i,j)) discharge = -discharge
fx(i,j) = discharge
if(brokenx(i,j) == 0) then
btx(i,j) = broken_rate*(btx(i,j) - dhigh) + dhigh
btx(i,j) = broken_rate*(btx(i,j) + dhigh) - dhigh
brokenx(i,j) = 1
end if
end if
Expand Down Expand Up @@ -1139,7 +1139,7 @@ subroutine fxynl_rwg_disp(wfld,dfld,ffld,ifz,cfs,cfl,dt,dxdy,nlon,nlat, &
if(hz(i,j+1) + ddy(i,j) > hz(i,j) + ddy(i,j)) discharge = -discharge
fy(i,j) = discharge
if(brokeny(i,j) == 0) then
bty(i,j) = broken_rate*(bty(i,j) - dhigh) + dhigh
bty(i,j) = broken_rate*(bty(i,j) + dhigh) - dhigh
brokeny(i,j) = 1
end if
end if
Expand Down

0 comments on commit 5b50e8d

Please sign in to comment.