Changeset 12354 for branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM
- Timestamp:
- 2020-02-06T14:58:43+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r11277 r12354 49 49 USE agrif_opa_interp ! agrif 50 50 #endif 51 #if defined key_asminc52 USE asminc ! Assimilation increment53 #endif54 51 55 52 IMPLICIT NONE … … 470 467 & + fwfisf(:,:) + fwfisf_b(:,:) ) 471 468 ENDIF 472 #if defined key_asminc473 ! ! Include the IAU weighted SSH increment474 IF( lk_asminc .AND. ln_sshinc .AND. ln_asmiau ) THEN475 zssh_frc(:,:) = zssh_frc(:,:) - ssh_iau(:,:)476 ENDIF477 #endif478 469 ! !* Fill boundary data arrays with AGRIF 479 470 ! ! -------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.