Changeset 8089
- Timestamp:
- 2017-05-30T09:57:37+02:00 (7 years ago)
- 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 42 42 ENDIF 43 43 44 zd_max = MAX( MAXVAL( e1t(:,:) ), MAXVAL( e2t(:,:) ) )44 zd_max = MAX( MAXVAL( e1t(:,:)*tmask(:,:,1) ), MAXVAL( e2t(:,:)*tmask(:,:,1) ) ) 45 45 IF( lk_mpp ) CALL mpp_max( zd_max ) ! max over the global domain 46 46 -
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90
r7806 r8089 215 215 USE crs , ONLY : fr_i => fr_i_crs !: ice fraction (between 0 to 1) 216 216 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) 218 218 USE crs , ONLY : ahtu => ahtu_crs !: lateral diffusivity coef. at u-points 219 219 USE crs , ONLY : ahtv => ahtv_crs !: lateral diffusivity coef. at v-points
Note: See TracChangeset
for help on using the changeset viewer.