Changeset 888 for trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90
- Timestamp:
- 2008-04-11T19:05:03+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90
r789 r888 14 14 USE oce ! ocean dynamics and tracers 15 15 USE dom_oce ! ocean space and time domain 16 USE sbc_oce ! surface boundary condition: ocean 17 USE sbcrnf ! river runoffs 16 18 USE ldftra_oce ! ocean tracer lateral physics 17 19 USE phycst ! physical constants 18 20 USE ldfslp ! iso-neutral slopes 19 USE flxrnf !20 21 USE in_out_manager ! I/O manager 21 22 USE lbclnk ! ocean lateral boundary conditions (or mpp link) … … 29 30 !!---------------------------------------------------------------------- 30 31 !! OPA 9.0 , LOCEAN-IPSL (2005) 31 !! $ Header$32 !! $Id$ 32 33 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 33 34 !!---------------------------------------------------------------------- … … 188 189 DO ji = 1, jpi 189 190 zaht = ( 1. - MIN( 1., ABS( ff(ji,jj) / zf20 ) ) ) * ( aht0 - zaht_min ) & 190 & + aht0 * upsrnfh(ji,jj) ! enhanced near river mouths191 & + aht0 * rnfmsk(ji,jj) ! enhanced near river mouths 191 192 ahtu(ji,jj) = MAX( MAX( zaht_min, aeiu(ji,jj) ) + zaht, aht0 ) 192 193 ahtv(ji,jj) = MAX( MAX( zaht_min, aeiv(ji,jj) ) + zaht, aht0 )
Note: See TracChangeset
for help on using the changeset viewer.