Changeset 12787
- Timestamp:
- 2020-04-21T12:51:21+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_obs_oper_update_reanalysis4/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r12786 r12787 454 454 ELSE 455 455 zssh_frc(:,:) = zraur * z1_2 * ( emp(:,:) + emp_b(:,:) - rnf(:,:) - rnf_b(:,:) & 456 & + rdivisf * ( fwfisf(:,:) + fwfisf_b(:,:) ))456 & + fwfisf(:,:) + fwfisf_b(:,:) ) 457 457 ENDIF 458 458 ! !* Fill boundary data arrays with AGRIF
Note: See TracChangeset
for help on using the changeset viewer.