Changeset 14623 for utils/tools/DOMAINcfg/src/domwri.F90
- Timestamp:
- 2021-03-21T19:40:22+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools/DOMAINcfg/src/domwri.F90
r14199 r14623 215 215 lldbl(:,:,1) = puniq(:,:) == ztstref(:,:) ! check which values have been changed 216 216 ! 217 puniq(:,:) = REAL( COUNT( lldbl(:,:,:), dim = 3 ) , wp ) 217 puniq(:,:) = 1. ! default definition 218 ! fill only the inner part of the cpu with llbl converted into real 219 puniq(Nis0:Nie0,Njs0:Nje0) = REAL( COUNT( lldbl(Nis0:Nie0,Njs0:Nje0,:), dim = 3 ) , wp ) 218 220 ! 219 221 END SUBROUTINE dom_uniq
Note: See TracChangeset
for help on using the changeset viewer.