Changeset 14224 for NEMO/trunk/src/OCE/DYN/dynatf_qco.F90
- Timestamp:
- 2020-12-19T15:49:56+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DYN/dynatf_qco.F90
r14143 r14224 98 98 INTEGER :: ji, jj, jk ! dummy loop indices 99 99 REAL(wp) :: zue3a, zue3n, zue3b, zcoef ! local scalars 100 REAL(wp) :: zve3a, zve3n, zve3b , z1_2dt! - -100 REAL(wp) :: zve3a, zve3n, zve3b ! - - 101 101 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zue, zve 102 102 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: zua, zva … … 234 234 ENDIF 235 235 IF( l_trddyn ) THEN ! 3D output: asselin filter trends on momentum 236 zua(:,:,:) = ( puu(:,:,:,Kmm) - zua(:,:,:) ) * z1_2dt237 zva(:,:,:) = ( pvv(:,:,:,Kmm) - zva(:,:,:) ) * z1_2dt236 zua(:,:,:) = ( puu(:,:,:,Kmm) - zua(:,:,:) ) * r1_Dt 237 zva(:,:,:) = ( pvv(:,:,:,Kmm) - zva(:,:,:) ) * r1_Dt 238 238 CALL trd_dyn( zua, zva, jpdyn_atf, kt, Kmm ) 239 239 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.