Changeset 13204 for utils/tools/DOMAINcfg/src/domutl.F90

Timestamp:

2020-07-02T10:38:35+02:00 (4 years ago)

Author:

smasson

Message:

tools: update with tools_dev_r12970_AGRIF_CMEMS

File:

• utils/tools/DOMAINcfg/src/domutl.F90 (modified) (8 diffs)

utils/tools/DOMAINcfg/src/domutl.F90

@@ -1 @@
-MODULE domutil
+MODULE domutl
    !!
    !!======================================================================
@@ -54 +54 @@
       INTEGER :: iim1, ijm1, ikm1                       ! working integer
       INTEGER :: nseed                                  ! size of the stack
-      TYPE (idx), POINTER :: seed
+      TYPE (idx), POINTER :: seed => NULL()
       !!---------------------------------------------------------------------- 
       !
       ! initialisation seed
-      NULLIFY(seed)
+  !    NULLIFY(seed)
       !
       ! create the first seed and update nseed for all processors
@@ -72 +72 @@
          END IF
       END IF
-      nseed=SUM(rseedmap); IF( lk_mpp )   CALL mpp_sum('domutil', nseed )  ! nseed =0 means on land => WARNING later on
+      nseed=SUM(rseedmap); IF( lk_mpp )   CALL mpp_sum('domutl', nseed )  ! nseed =0 means on land => WARNING later on
       !
       ! loop until the stack size is 0 or if the pool is larger than the critical size
@@ -106 +106 @@
             !
             ! exchange seed
-            nseed=SUM(rseedmap); IF( lk_mpp )   CALL mpp_sum('domutil', nseed )  ! this is the sum of all the point check this iteration
+            nseed=SUM(rseedmap); IF( lk_mpp )   CALL mpp_sum('domutl', nseed )  ! this is the sum of all the point check this iteration
             !
             rseedmap_b(:,:,:)=rseedmap(:,:,:)
-            CALL lbc_lnk('domutil', rseedmap, 'T', 1.)
+            CALL lbc_lnk('domutl', rseedmap, 'T', 1.)
             !
             ! build new list of seed
@@ -150 +150 @@
       INTEGER :: iim1, ijm1                   ! working integer
       INTEGER :: nseed                        ! size of the stack
-      TYPE (idx), POINTER :: seed
+      TYPE (idx), POINTER :: seed => NULL()
       !!----------------------------------------------------------------------
       !
       ! initialisation seed
-      NULLIFY(seed)
+      !NULLIFY(seed)
       !
       ! create the first seed and update nseed for all processors
@@ -168 +168 @@
          END IF
       END IF
-      nseed=SUM(rseedmap); IF( lk_mpp )   CALL mpp_sum('domutil', nseed )  ! nseed =0 means on land => WARNING later on
+      nseed=SUM(rseedmap); IF( lk_mpp )   CALL mpp_sum('domutl', nseed )  ! nseed =0 means on land => WARNING later on
       !
       ! loop until the stack size is 0 or if the pool is larger than the critical size
@@ -195 +195 @@
             !
             ! exchange seed
-            nseed=SUM(rseedmap); IF( lk_mpp )   CALL mpp_sum('domutil', nseed )  ! this is the sum of all the point check this iteration
-            !
-            CALL lbc_lnk('domutil', rseedmap, 'T', 1.)
+            nseed=SUM(rseedmap); IF( lk_mpp )   CALL mpp_sum('domutl', nseed )  ! this is the sum of all the point check this iteration
+            !
+            CALL lbc_lnk('domutl', rseedmap, 'T', 1.)
             !
             ! build new list of seed
@@ -259 +259 @@
          zpt_tmp => pt_idx%next
          DEALLOCATE(pt_idx)
-         NULLIFY(pt_idx)
+         !NULLIFY(pt_idx)
+         pt_idx => NULL()
          pt_idx => zpt_tmp
       ELSE
-         NULLIFY(pt_idx)
+         !NULLIFY(pt_idx)
+         pt_idx => NULL()
       ENDIF
    END SUBROUTINE del_head_idx
    !
-END MODULE domutil
+END MODULE domutl