Changeset 1998 for branches/DEV_R1821_Rivers/NEMO/OPA_SRC/DOM/closea.F90
- Timestamp:
- 2010-07-08T17:12:21+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_R1821_Rivers/NEMO/OPA_SRC/DOM/closea.F90
r1938 r1998 182 182 REAL(wp), DIMENSION (jpncs) :: zfwf 183 183 184 REAL(wp), DIMENSION (jpi,jpj) :: fwf !: fresh water flux,for volume: emp-rnf185 REAL(wp), DIMENSION (jpi,jpj) :: fwfs !: fresh water flux, for conc/dilution effect: emps-rnf186 184 !!---------------------------------------------------------------------- 187 185 ! … … 283 281 END DO 284 282 ! 285 fwf(:,:) = emp(:,:) - rnf(:,:) 286 fwfs(:,:) = emps(:,:) - rnf(:,:) 287 CALL lbc_lnk( fwf , 'T', 1. ) 288 CALL lbc_lnk( fwfs, 'T', 1. ) 283 CALL lbc_lnk( emp , 'T', 1. ) 284 CALL lbc_lnk( emps, 'T', 1. ) 289 285 ! 290 286 END SUBROUTINE sbc_clo
Note: See TracChangeset
for help on using the changeset viewer.