Changeset 1752
- Timestamp:
- 2009-11-25T11:10:30+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbccpl.F90
r1742 r1752 1113 1113 IF( srcv(jpr_cal)%laction ) THEN 1114 1114 zcoef = xlic / rhoic 1115 pqns_tot(:,:) = pqns_tot(:,:) - frcv(:,:,jpr_cal) (:,:)* zcoef1115 pqns_tot(:,:) = pqns_tot(:,:) - frcv(:,:,jpr_cal) * zcoef 1116 1116 ENDIF 1117 1117
Note: See TracChangeset
for help on using the changeset viewer.