gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' into flux-tubes

Browse Source
This commit is contained in:
Grzegorz Kowal 2022-12-06 20:24:29 -03:00
commit 021a3de384
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
sources/blocks.F90
View File

@ -3070,7 +3070,8 @@ module blocks
! subroutine CHANGE_BLOCKS_PROCESS:
! --------------------------------
!
! Subroutine switches meta blocks which belong to old process to the new one.
! Subroutine changes the process of meta blocks associated with the process
! npold to npnew.
!
! Arguments:
!
@ -3089,15 +3090,14 @@ module blocks
!-------------------------------------------------------------------------------
!
if (npnew == npold) return
pmeta => list_meta
do while(associated(pmeta))
! if the meta block belongs to process npold, switch it to process npnew
!
if (pmeta%process == npold) pmeta%process = npnew
pmeta => pmeta%next
end do ! meta blocks
end do
!-------------------------------------------------------------------------------
!