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

Changeset 1752


Ignore:
Timestamp:
2009-11-25T11:10:30+01:00 (14 years ago)
Author:
smasson
Message:

small bugfix related to changeset:1742 , see ticket:607

File:
1 edited

Legend:

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

    r1742 r1752  
    11131113      IF( srcv(jpr_cal)%laction ) THEN  
    11141114         zcoef = xlic / rhoic 
    1115          pqns_tot(:,:) = pqns_tot(:,:) - frcv(:,:,jpr_cal)(:,:) * zcoef 
     1115         pqns_tot(:,:) = pqns_tot(:,:) - frcv(:,:,jpr_cal) * zcoef 
    11161116      ENDIF 
    11171117 
Note: See TracChangeset for help on using the changeset viewer.