Changeset 13204 for utils/tools/DOMAINcfg/src/domclo.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/domclo.F90 (modified) (3 diffs)

utils/tools/DOMAINcfg/src/domclo.F90

@@ -12 +12 @@
    USE domngb          ! closest point algorithm
    USE phycst          ! rpi, rad, ra
-   USE domutil         ! flood filling algorithm (fill_pool)
+   USE domutl          ! flood filling algorithm (fill_pool)
    USE in_out_manager  ! I/O manager
    USE lbclnk          ! lateral boundary condition - MPP exchanges
@@ -82 +82 @@
       LOGICAL :: lskip     ! flag in case lake seed on land or already filled (...)
 
+      NAMELIST/namclo/ rn_lon_opnsea, rn_lat_opnsea, nn_closea, sn_lake
+
       !!----------------------------------------------------------------------
       !! 0 : Read namelist for closed sea definition
@@ -89 +91 @@
       IF(lwp) WRITE(numout,*)'~~~~~~~'
 
-      NAMELIST/namclo/ rn_lon_opnsea, rn_lat_opnsea, nn_closea, sn_lake
       !!---------------------------------------------------------------------