Changeset 1201


Ignore:
Timestamp:
2008-09-24T15:24:21+02:00 (12 years ago)
Author:
rblod
Message:

Fix a bug in tke, see ticket #238

Location:
trunk/NEMO/OPA_SRC
Files:
2 edited

Legend:

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

    r1146 r1201  
    3434   USE diaptr          ! poleward transport diagnostics 
    3535   USE prtctl          ! Print control 
     36   USE zdf_oce         ! ocean vertical physics 
    3637 
    3738   IMPLICIT NONE 
     
    155156         !    
    156157         btr2(:,:) = 1. / ( e1t(:,:) * e2t(:,:) )        ! inverse of T-point surface 
     158            IF ( jp_cfg == 2 ) THEN 
     159            !   Increase the background in the surface layers 
     160               avmb(1) = 10.  * avmb(1)      ;      avtb(1) = 10.  * avtb(1) 
     161               avmb(2) = 10.  * avmb(2)      ;      avtb(2) = 10.  * avtb(2) 
     162               avmb(3) =  5.  * avmb(3)      ;      avtb(3) =  5.  * avtb(3) 
     163               avmb(4) =  2.5 * avmb(4)      ;      avtb(4) =  2.5 * avtb(4) 
     164            ENDIF 
    157165      ENDIF 
    158166 
  • trunk/NEMO/OPA_SRC/ZDF/zdftke.F90

    r1146 r1201  
    876876      ENDIF 
    877877 
    878 !!gm  the increase is only required when using cen2 advection scheme  
    879 !!gm  for the equatorial upwelling.       ===>  use of TVD in ORCA  so this have to be suppressed 
    880       !   Increase the background in the surface layers 
    881       avmb(1) = 10.  * avmb(1)      ;      avtb(1) = 10.  * avtb(1) 
    882       avmb(2) = 10.  * avmb(2)      ;      avtb(2) = 10.  * avtb(2) 
    883       avmb(3) =  5.  * avmb(3)      ;      avtb(3) =  5.  * avtb(3) 
    884       avmb(4) =  2.5 * avmb(4)      ;      avtb(4) =  2.5 * avtb(4) 
    885 !!gm end 
    886  
    887  
    888878      ! Initialization of vertical eddy coef. to the background value 
    889879      ! ------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.