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 193 – NEMO

Changeset 193


Ignore:
Timestamp:
2004-12-22T16:34:35+01:00 (19 years ago)
Author:
opalod
Message:

CT : BUGFIX134 : correction of the current year freshwater budget empold using the previous year budget instead of the 2 previous years budget

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/SBC/flxfwb.F90

    r84 r193  
    145145         a_fwb   = a_fwb * 1.e+3 / ( zarea * 86400. * 365. )    ! convert in Kg/m3/s = mm/s 
    146146         !                                                      !!bug 365d year  
    147          empold = 2. * a_fwb - a_fwb_b   ! current year freshwater budget correction 
    148          !                               ! estimate from the 2 previous years budget 
     147         empold =  a_fwb                 ! current year freshwater budget correction 
     148         !                               ! estimate from the previous year budget 
    149149      ENDIF 
    150150 
    … …  
    285285            READ ( inum, "(24X,I8,2ES24.16)" ) iyear, a_fwb_b, a_fwb 
    286286            CLOSE( inum ) 
    287             empold = 2. * a_fwb - a_fwb_b   ! current year freshwater budget correction 
    288             !                               ! estimate from the 2 previous years budget 
     287            empold = a_fwb                  ! current year freshwater budget correction 
     288            !                               ! estimate from the previous year budget 
    289289            IF(lwp)WRITE(numout,*) 
    290290            IF(lwp)WRITE(numout,*)'flx_fwb_init : year = ',iyear  , ' freshwater budget correction = ', empold 
Note: See TracChangeset for help on using the changeset viewer.