Changeset 3718 for TOOLS/MOSAIX/src

Timestamp:

03/29/18 10:56:01 (6 years ago)

Author:

omamce

Message:

O.M. : add computation of runoff weights

File:

• TOOLS/MOSAIX/src/MOSAIX/interpol.f90 (modified) (2 diffs)

TOOLS/MOSAIX/src/MOSAIX/interpol.f90

@@ -111 +111 @@
       CALL xios_recv_field ("mask_src", imask_src)
       lmask_src = .FALSE.
-      WHERE (imask_src>0) lmask_src = .TRUE.
+      WHERE (imask_src > 0.5 ) lmask_src = .TRUE.
    ELSE
       imask_src (:,:) = 1 ; lmask_src (:,:) = .TRUE.
    ENDIF
+   WRITE (UNIT=nout, FMT="('-- ', 1I4.4, ' -- counting mask_src : ', 1I8)" ) rank, COUNT(lmask_src)
    
    !< Read mask on the destination grid
@@ -125 +126 @@
       CALL xios_recv_field ("mask_dst", imask_dst)
       lmask_dst = .FALSE.
-      WHERE (imask_dst>0) lmask_dst = .TRUE.
+      WHERE (imask_dst > 0.5) lmask_dst = .TRUE.
    ELSE
       imask_dst (:,:) = 1 ; lmask_dst (:,:) = .TRUE.
    ENDIF
+   WRITE (UNIT=nout, FMT="('-- ', 1I4.4, ' -- counting mask_dst : ', 1I8)" ) rank, COUNT(lmask_dst)
 
    WRITE (UNIT=nout, FMT="('-- ', 1I4.4, ' -- fin interpol_read (1)')") rank