- Timestamp:
- 2004-11-03T15:46:18+01:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/ocesbc.F90
r153 r160 370 370 emp(ji,jj) = ( ( 1. - zice ) * ze + zice * zei + zro ) * tmask(ji,jj,1) + erp(ji,jj) 371 371 372 ! f) net upward water flux for the salinity surface 373 ! boundary condition 374 emps(:,:) = emp(:,:) 375 372 376 END DO 373 377 END DO
Note: See TracChangeset
for help on using the changeset viewer.