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 1168 for trunk/NEMO/OPA_SRC/SBC/sbcfwb.F90 – NEMO

Ignore:
Timestamp:
2008-08-11T12:21:06+02:00 (16 years ago)
Author:
rblod
Message:

Correct a bug in emp and emps sign, correct comments, see ticket #235

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/sbcfwb.F90

    r1156 r1168  
    5353      !! ** Method  :   several ways  depending on kn_fwb 
    5454      !!                =0 no control  
    55       !!                =1 annual global mean corrected from previous year 
    56       !!                =2 global mean of emp set to zero at each nn_fsbc time step 
     55      !!                =1 global mean of emp set to zero at each nn_fsbc time step 
     56      !!                =2 annual global mean corrected from previous year 
    5757      !!---------------------------------------------------------------------- 
    5858      INTEGER, INTENT( in ) ::   kt       ! ocean time-step index 
     
    125125         ! correct the freshwater fluxes 
    126126         IF( MOD( kt-1, kn_fsbc ) == 0 ) THEN 
    127             emp (:,:) = emp (:,:) - empold 
    128             emps(:,:) = emps(:,:) - empold 
     127            emp (:,:) = emp (:,:) + empold 
     128            emps(:,:) = emps(:,:) + empold 
    129129         ENDIF 
    130130         ! 
Note: See TracChangeset for help on using the changeset viewer.