Changeset 14286 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/TRD/trdvor.F90
- Timestamp:
- 2021-01-11T18:30:11+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/TRD/trdvor.F90
r14219 r14286 400 400 401 401 ! Boundary conditions 402 CALL lbc_lnk_multi( 'trdvor', vor_avrtot, 'F', 1.0_wp & 403 & , vor_avrres, 'F', 1.0_wp ) 402 CALL lbc_lnk_multi( 'trdvor', vor_avrtot, 'F', 1.0_wp , vor_avrres, 'F', 1.0_wp ) 404 403 405 404 … … 459 458 !! from ocean surface down to control surface (NetCDF output) 460 459 !!---------------------------------------------------------------------- 461 REAL(dp) :: zjulian 462 REAL(dp) :: zsto 463 REAL(dp) :: zout 460 REAL(dp) :: zjulian, zsto, zout 464 461 CHARACTER (len=40) :: clhstnam 465 462 CHARACTER (len=40) :: clop … … 577 574 !!====================================================================== 578 575 END MODULE trdvor 579
Note: See TracChangeset
for help on using the changeset viewer.