Skip to content

Commit 6be9617

Browse files
committed
fix deallocation statement in Thompson MP
1 parent a7e1122 commit 6be9617

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

physics/MP/Thompson/mp_thompson.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -995,7 +995,7 @@ subroutine mp_thompson_run(ncol, nlev, con_g, con_rd, &
995995
dnwfa = (new_nwfa - nwfa)/dtp
996996
dnifa = (new_nifa - nifa)/dtp
997997

998-
deallocate(new_nc, new_nwfa, nifa)
998+
deallocate(new_nc, new_nwfa, new_nifa)
999999
end if
10001000

10011001
end subroutine mp_thompson_run

0 commit comments

Comments
 (0)