diff options
| -rw-r--r-- | src/ADMConstraints.F | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index 41e9224..313c16d 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -111,11 +111,11 @@ c Calculate constraints. do j=2,ny-1 do i=2,nx-1 - docalc = 1 + docalc = .TRUE. if (use_mask .eq. 1) then if (emask(i,j,k) .ne. 1) then - docalc = 0 + docalc = .FALSE. end if end if |