Changeset 422


Ignore:
Timestamp:
2006-03-21T10:16:38+01:00 (15 years ago)
Author:
opalod
Message:

nemo_v1_update_042 : CT : use avt0 defined in the namelist to compute the background eddy diffusivity profil avtb in the case navtb /= 0

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/ZDF/zdftke.F90

    r258 r422  
    2121   USE taumod          ! surface stress 
    2222   USE prtctl          ! Print control 
     23   USE traadv_ctl      ! advection scheme control 
    2324 
    2425   IMPLICIT NONE 
     
    791792         !   Background profile of avt (fit a theoretical/observational profile (Krauss 1990)  
    792793         avmb(:) = avm0 
    793          avtb(:) = 1.e-5 + 2.8e-8 * gdepw(:)   ! m2/s 
     794         avtb(:) = avt0 + ( 3.0e-4 - 2 * avt0 ) * 1.0e-4 * gdepw(:)   ! m2/s 
    794795      ENDIF 
    795796 
    796       !   Increase the background in the surface layers 
    797       avmb(1) = 10.  * avmb(1)      ;      avtb(1) = 10.  * avtb(1) 
    798       avmb(2) = 10.  * avmb(2)      ;      avtb(2) = 10.  * avtb(2) 
    799       avmb(3) =  5.  * avmb(3)      ;      avtb(3) =  5.  * avtb(3) 
    800       avmb(4) =  2.5 * avmb(4)      ;      avtb(4) =  2.5 * avtb(4) 
     797      IF( cp_cfg == "orca"  .AND. jp_cfg == 2 .AND. ln_traadv_cen2 )  THEN 
     798         !   Increase the background in the surface layers 
     799         avmb(1) = 10.  * avmb(1)      ;      avtb(1) = 10.  * avtb(1) 
     800         avmb(2) = 10.  * avmb(2)      ;      avtb(2) = 10.  * avtb(2) 
     801         avmb(3) =  5.  * avmb(3)      ;      avtb(3) =  5.  * avtb(3) 
     802         avmb(4) =  2.5 * avmb(4)      ;      avtb(4) =  2.5 * avtb(4) 
     803      ENDIF 
    801804 
    802805 
Note: See TracChangeset for help on using the changeset viewer.