Changeset 12305
- Timestamp:
- 2020-01-07T18:33:24+01:00 (4 years ago)
- Location:
- branches/UKMO/AMM15_v3_6_STABLE_package_collate_IAUtest/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_IAUtest/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r11277 r12305 472 472 #if defined key_asminc 473 473 ! ! Include the IAU weighted SSH increment 474 IF( lk_asminc .AND. ln_sshinc .AND. ln_asmiau ) THEN475 zssh_frc(:,:) = zssh_frc(:,:) - ssh_iau(:,:)476 ENDIF474 ! IF( lk_asminc .AND. ln_sshinc .AND. ln_asmiau ) THEN 475 ! zssh_frc(:,:) = zssh_frc(:,:) - ssh_iau(:,:) 476 ! ENDIF 477 477 #endif 478 478 ! !* Fill boundary data arrays with AGRIF -
branches/UKMO/AMM15_v3_6_STABLE_package_collate_IAUtest/NEMOGCM/NEMO/OPA_SRC/step.F90
r12304 r12305 347 347 ! Revert now divergence and rotational to previously computed ones 348 348 !(needed because of the time swap in div_cur, at the beginning of each time step) 349 !hdivn(:,:,:) = hdivb(:,:,:)350 !rotn(:,:,:) = rotb(:,:,:)349 hdivn(:,:,:) = hdivb(:,:,:) 350 rotn(:,:,:) = rotb(:,:,:) 351 351 352 352 CALL dyn_bfr( kstp ) ! bottom friction
Note: See TracChangeset
for help on using the changeset viewer.