Changeset 915 for trunk/NEMO/OPA_SRC/TRA/traldf.F90

Timestamp:

2008-05-07T11:42:47+02:00 (16 years ago)

Author:

rblod

Message:

Correct the ldf_slp/trazdf_imp bug in a proper way, see ticket #118

File:

• trunk/NEMO/OPA_SRC/TRA/traldf.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/TRA/traldf.F90

@@ -205 +205 @@
       IF( nldf == 1 .OR. nldf == 3 ) THEN      ! rotation
          IF( .NOT.lk_ldfslp )   CALL ctl_stop( '          the rotation of the diffusive tensor require key_ldfslp' )
+         l_traldf_rot = .TRUE.                 ! needed for trazdf_imp
       ENDIF