Changeset 9779 for NEMO

Timestamp:

2018-06-12T11:30:38+02:00 (6 years ago)

Author:

clem

Message:

make traldf_iso + msc restartable ==> SPITZ12 is now^CK

File:

• NEMO/trunk/src/OCE/TRA/traldf_iso.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/TRA/traldf_iso.F90

@@ -113 +113 @@
       !!----------------------------------------------------------------------
       !
-      IF( kt == kit000 )  THEN
+      IF( kpass == 1 .AND. kt == kit000 )  THEN
          IF(lwp) WRITE(numout,*)
          IF(lwp) WRITE(numout,*) 'tra_ldf_iso : rotated laplacian diffusion operator on ', cdtype