New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 719 for trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90 – NEMO

Ignore:
Timestamp:
2007-10-16T16:59:56+02:00 (17 years ago)
Author:
ctlod
Message:

get back to the nemo_v2_3 version for trunk

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90

    • Property svn:keywords changed from Id to Author Date Id Revision
    r717 r719  
    1616   USE oce             ! ocean dynamics and tracers 
    1717   USE dom_oce         ! ocean space and time domain 
    18    USE sbc_oce         ! surface boundary condition: ocean 
    19    USE sbcrnf          ! river runoffs 
    2018   USE ldftra_oce      ! ocean tracer   lateral physics 
    2119   USE phycst          ! physical constants 
    2220   USE ldfslp          ! iso-neutral slopes 
     21   USE flxrnf          !  
    2322   USE in_out_manager  ! I/O manager 
    2423   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    … …  
    3231   !!---------------------------------------------------------------------- 
    3332   !!  OPA 9.0 , LOCEAN-IPSL (2005)  
    34    !! $Id$ 
     33   !! $Header$  
    3534   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt  
    3635   !!---------------------------------------------------------------------- 
    … …  
    178177            DO ji = 1, jpi 
    179178               zaht      = ( 1. -  MIN( 1., ABS( ff(ji,jj) / zf20 ) ) ) * ( aht0 - zaht_min )  & 
    180                   &      + aht0 * rnfmsk(ji,jj)                          ! enhanced near river mouths 
     179                  &      + aht0 * upsrnfh(ji,jj)                          ! enhanced near river mouths 
    181180               ahtu(ji,jj) = MAX( MAX( zaht_min, aeiu(ji,jj) ) + zaht, aht0 ) 
    182181               ahtv(ji,jj) = MAX( MAX( zaht_min, aeiv(ji,jj) ) + zaht, aht0 ) 
    … …  
    353352            DO ji = 1, jpi 
    354353               zaht      = ( 1. -  MIN( 1., ABS( ff(ji,jj) / zf20 ) ) ) * ( aht0 - zaht_min )  & 
    355                   &      + aht0 * rnfmsk(ji,jj)                          ! enhanced near river mouths 
     354                  &      + aht0 * upsrnfh(ji,jj)                          ! enhanced near river mouths 
    356355               ahtu(ji,jj) = MAX( MAX( zaht_min, aeiu(ji,jj) ) + zaht, aht0 ) 
    357356               ahtv(ji,jj) = MAX( MAX( zaht_min, aeiv(ji,jj) ) + zaht, aht0 ) 
Note: See TracChangeset for help on using the changeset viewer.