Changeset 14199 for utils/tools/DOMAINcfg/src/domwri.F90

Timestamp:

2020-12-17T15:04:44+01:00 (4 years ago)

Author:

mathiot

Message:

ticket #2588: various bug in domain_cfg (undefined variable before use, isf, closed sea re-activated ...)

File:

• utils/tools/DOMAINcfg/src/domwri.F90 (modified) (1 diff)

utils/tools/DOMAINcfg/src/domwri.F90

@@ -215 +215 @@
       lldbl(:,:,1) = puniq(:,:) == ztstref(:,:)   ! check which values have been changed 
       !
-      puniq(:,:) = 1.                             ! default definition
-      ! fill only the inner part of the cpu with llbl converted into real 
-      puniq(nldi:nlei,nldj:nlej) = REAL( COUNT( lldbl(nldi:nlei,nldj:nlej,:), dim = 3 ) , wp )
+      puniq(:,:) = REAL( COUNT( lldbl(:,:,:), dim = 3 ) , wp )
       !
    END SUBROUTINE dom_uniq