- Timestamp:
- 2018-01-04T14:48:52+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r8059 r9178 46 46 USE agrif_opa_interp ! agrif 47 47 #endif 48 #if defined key_asminc49 USE asminc ! Assimilation increment50 #endif51 48 52 49 IMPLICIT NONE … … 462 459 & + fwfisf(:,:) + fwfisf_b(:,:) ) 463 460 ENDIF 464 #if defined key_asminc465 ! ! Include the IAU weighted SSH increment466 IF( lk_asminc .AND. ln_sshinc .AND. ln_asmiau ) THEN467 zssh_frc(:,:) = zssh_frc(:,:) - ssh_iau(:,:)468 ENDIF469 #endif470 461 ! !* Fill boundary data arrays for AGRIF 471 462 ! ! ------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.