- Timestamp:
- 2018-11-01T10:52:22+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
r9178 r10268 46 46 USE agrif_opa_interp ! agrif 47 47 #endif 48 #if defined key_asminc 49 USE asminc ! Assimilation increment 50 #endif 48 51 49 52 IMPLICIT NONE … … 459 462 & + fwfisf(:,:) + fwfisf_b(:,:) ) 460 463 ENDIF 461 ! !* Fill boundary data arrays for AGRIF 462 ! ! ------------------------------------ 464 #if defined key_asminc 465 ! ! Include the IAU weighted SSH increment 466 IF( lk_asminc .AND. ln_sshinc .AND. ln_asmiau ) THEN 467 zssh_frc(:,:) = zssh_frc(:,:) - ssh_iau(:,:) 468 ENDIF 469 #endif 470 ! !* Fill boundary data arrays with AGRIF 471 ! ! ------------------------------------- 463 472 #if defined key_agrif 464 473 IF( .NOT.Agrif_Root() ) CALL agrif_dta_ts( kt )
Note: See TracChangeset
for help on using the changeset viewer.