Changeset 915


Ignore:
Timestamp:
2008-05-07T11:42:47+02:00 (13 years ago)
Author:
rblod
Message:

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

Location:
trunk/NEMO/OPA_SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/TRA/traldf.F90

    r902 r915  
    205205      IF( nldf == 1 .OR. nldf == 3 ) THEN      ! rotation 
    206206         IF( .NOT.lk_ldfslp )   CALL ctl_stop( '          the rotation of the diffusive tensor require key_ldfslp' ) 
     207         l_traldf_rot = .TRUE.                 ! needed for trazdf_imp 
    207208      ENDIF 
    208209 
  • trunk/NEMO/OPA_SRC/TRA/trazdf_imp.F90

    r902 r915  
    3131   USE prtctl          ! Print control 
    3232   USE domvvl          ! variable volume 
    33    USE traldf          ! lateral mixing type 
     33   USE ldftra          ! lateral mixing type 
    3434 
    3535   IMPLICIT NONE 
     
    139139#if defined key_ldfslp 
    140140      ! update and save of avt (and avs if double diffusive mixing) 
    141       IF( nldf == 1) THEN 
     141      IF( l_traldf_rot ) THEN 
    142142         DO jk = 2, jpkm1 
    143143            DO jj = 2, jpjm1 
     
    154154         END DO 
    155155      ENDIF    
    156  
    157156#else 
    158157      ! No isopycnal diffusion 
  • trunk/NEMO/OPA_SRC/oce.F90

    r719 r915  
    2020   !! Physics and algorithm flags 
    2121   !! --------------------------- 
     22   LOGICAL, PUBLIC ::   l_traldf_rot    = .FALSE.  !: rotated laplacian operator for lateral diffusion  
    2223   LOGICAL, PUBLIC ::   ln_dynhpg_imp   = .FALSE.  !: semi-implicite hpg flag 
    2324   INTEGER, PUBLIC ::   nn_dynhpg_rst   = 0        !: add dynhpg implicit variables in restart ot not 
Note: See TracChangeset for help on using the changeset viewer.