Changeset 13769 for NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE

Timestamp:

2020-11-10T17:04:11+01:00 (4 years ago)

Author:

techene

Message:

#2485 rk3 minor changes and multi proc debug

File:

• NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/LDF/ldfdyn.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/LDF/ldfdyn.F90

@@ -171 +171 @@
          !
          SELECT CASE( nn_dynldf_typ )  ! div-rot or symmetric
-         CASE( np_typ_rot )   ;   WRITE(numout,*) '   ==>>>   use div-rot   operator '
-         CASE( np_typ_sym )   ;   WRITE(numout,*) '   ==>>>   use symmetric operator '
+         CASE( np_typ_rot )   ;   IF(lwp)   WRITE(numout,*) '   ==>>>   use div-rot   operator '
+         CASE( np_typ_sym )   ;   IF(lwp)   WRITE(numout,*) '   ==>>>   use symmetric operator '
          CASE DEFAULT                                     ! error
             CALL ctl_stop('ldf_dyn_init: wrong value for nn_dynldf_typ (0 or 1)'  )