- Timestamp:
- 2020-02-06T15:28:34+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r9188 r12355 45 45 USE agrif_opa_interp ! agrif 46 46 #endif 47 #if defined key_asminc48 USE asminc ! Assimilation increment49 #endif50 47 51 48 IMPLICIT NONE … … 459 456 & + rdivisf * ( fwfisf(:,:) + fwfisf_b(:,:) ) ) 460 457 ENDIF 461 #if defined key_asminc462 ! ! Include the IAU weighted SSH increment463 IF( lk_asminc .AND. ln_sshinc .AND. ln_asmiau ) THEN464 zssh_frc(:,:) = zssh_frc(:,:) - ssh_iau(:,:)465 ENDIF466 #endif467 458 ! !* Fill boundary data arrays for AGRIF 468 459 ! ! ------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.