Changeset 12489 for NEMO/trunk/src/OCE/TRD/trddyn.F90
- Timestamp:
- 2020-02-28T16:55:11+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/TRD/trddyn.F90
r12377 r12489 140 140 ! ! wind stress trends 141 141 ALLOCATE( z2dx(jpi,jpj) , z2dy(jpi,jpj) ) 142 z2dx(:,:) = ( utau_b(:,:) + utau(:,:) ) / ( e3u(:,:,1,Kmm) * r au0 )143 z2dy(:,:) = ( vtau_b(:,:) + vtau(:,:) ) / ( e3v(:,:,1,Kmm) * r au0 )142 z2dx(:,:) = ( utau_b(:,:) + utau(:,:) ) / ( e3u(:,:,1,Kmm) * rho0 ) 143 z2dy(:,:) = ( vtau_b(:,:) + vtau(:,:) ) / ( e3v(:,:,1,Kmm) * rho0 ) 144 144 CALL iom_put( "utrd_tau", z2dx ) 145 145 CALL iom_put( "vtrd_tau", z2dy )
Note: See TracChangeset
for help on using the changeset viewer.