Changeset 11799 for NEMO/branches/2019/dev_r11470_HPC_12_mpi3/src/OCE/DOM/iscplhsb.F90

Timestamp:

2019-10-25T16:27:34+02:00 (5 years ago)

Author:

mocavero

Message:

Update the branch to v4.0.1 of the trunk

File:

• NEMO/branches/2019/dev_r11470_HPC_12_mpi3/src/OCE/DOM/iscplhsb.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11470_HPC_12_mpi3/src/OCE/DOM/iscplhsb.F90

@@ -186 +186 @@
 !      CALL lbc_sum(pts_flx (:,:,:,jp_sal),'T',1.)
 !      CALL lbc_sum(pts_flx (:,:,:,jp_tem),'T',1.)
-      STOP ' iscpl_cons:   please modify this module !'
+      CALL ctl_stop( 'STOP', ' iscpl_cons:   please modify this MODULE !' )
 !!gm end
       ! if no neighbour wet cell in case of 2close a cell", need to find the nearest wet point