Changeset 8089


Ignore:
Timestamp:
2017-05-30T09:57:37+02:00 (3 years ago)
Author:
cbricaud
Message:

correct bug in scaling of passive tracers lateral diffusion coefficient

Location:
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_c2d_crs.h90

    r6101 r8089  
    4242      ENDIF 
    4343 
    44       zd_max = MAX( MAXVAL( e1t(:,:) ), MAXVAL( e2t(:,:) ) ) 
     44      zd_max = MAX( MAXVAL( e1t(:,:)*tmask(:,:,1) ), MAXVAL( e2t(:,:)*tmask(:,:,1) ) ) 
    4545      IF( lk_mpp ) CALL mpp_max( zd_max )   ! max over the global domain 
    4646 
  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90

    r7806 r8089  
    215215   USE crs , ONLY :   fr_i       =>    fr_i_crs       !: ice fraction (between 0 to 1) 
    216216 
    217    USE trcnam_trp , ONLY :  aht0     =>   rn_ahtrc_0        !: horizontal eddy diffusivity for tracers (m2/s) 
     217   USE ldftra_oce , ONLY :  aht0     =>   aht0        !: horizontal eddy diffusivity for tracers (m2/s) 
    218218   USE crs , ONLY :  ahtu     =>   ahtu_crs        !: lateral diffusivity coef. at u-points  
    219219   USE crs , ONLY :  ahtv     =>   ahtv_crs        !: lateral diffusivity coef. at v-points  
Note: See TracChangeset for help on using the changeset viewer.