Changeset 12489 for NEMO/trunk/src/OFF/dtadyn.F90
- Timestamp:
- 2020-02-28T16:55:11+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OFF/dtadyn.F90
r12377 r12489 546 546 ENDIF 547 547 548 ssh(:,:,Kmm) = ssh(:,:,Kmm) + atfp * ( ssh(:,:,Kbb) - 2 * ssh(:,:,Kmm) + ssh(:,:,Kaa))548 ssh(:,:,Kmm) = ssh(:,:,Kmm) + rn_atfp * ( ssh(:,:,Kbb) - 2 * ssh(:,:,Kmm) + ssh(:,:,Kaa)) 549 549 550 550 !! Do we also need to time filter e3t?? … … 622 622 !!---------------------------------------------------------------------- 623 623 ! 624 z2dt = 2._wp * r dt624 z2dt = 2._wp * rn_Dt 625 625 ! 626 626 zhdiv(:,:) = 0._wp … … 629 629 END DO 630 630 ! ! Sea surface elevation time-stepping 631 pssha(:,:) = ( psshb(:,:) - z2dt * ( r1_r au0 * pemp(:,:) + zhdiv(:,:) ) ) * ssmask(:,:)631 pssha(:,:) = ( psshb(:,:) - z2dt * ( r1_rho0 * pemp(:,:) + zhdiv(:,:) ) ) * ssmask(:,:) 632 632 ! ! 633 633 ! ! After acale factors at t-points ( z_star coordinate )
Note: See TracChangeset
for help on using the changeset viewer.