Changeset 115 for trunk/NEMO/LIM_SRC

Timestamp:

2004-06-28T16:52:01+02:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE074 : Mpp addition with a call to mpp_max(zcfl) so that the CFL test is done on a the global domain and not only for each processor

File:

• trunk/NEMO/LIM_SRC/limtrp.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC/limtrp.F90

@@ -24 +24 @@
    USE limhdf
    USE lbclnk
+   USE lib_mpp
 
    IMPLICIT NONE
@@ -122 +123 @@
          zcfl  = MAX( zcfl, MAXVAL( ABS( zvi_v( :     ,1:jpjm1) ) * rdt_ice / e2v( :     ,1:jpjm1) ) )
 
-         IF ( zcfl > 0.5 )   WRITE(numout,*) 'lim_trp : violation of cfl criterion the ',nday,'th day, cfl = ',zcfl
+         IF (lk_mpp ) CALL mpp_max(zcfl)
+
+         IF ( zcfl > 0.5 .AND. lwp )   WRITE(numout,*) 'lim_trp : violation of cfl criterion the ',nday,'th day, cfl = ',zcfl
 
          ! content of properties