Changeset 1726 for trunk/NEMO/OPA_SRC/SBC/sbccpl.F90
- Timestamp:
- 2009-11-12T17:43:26+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbccpl.F90
r1710 r1726 667 667 ELSE 668 668 llnewtau = nrcvinfo(jpr_taum) == OASIS_Rcv 669 ! Stress module can be negative when received (interpolation problem) 670 IF( llnewtau ) THEN 671 DO jj = 1, jpj 672 DO ji = 1, jpi 673 frcv(ji,jj,jpr_taum) = MAX( 0.0e0, frcv(ji,jj,jpr_taum) ) 674 END DO 675 END DO 676 ENDIF 669 677 ENDIF 670 678
Note: See TracChangeset
for help on using the changeset viewer.