Changeset 14495 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/SBC
- Timestamp:
- 2021-02-18T18:06:18+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/SBC/sbcblk_algo_coare3p0.F90
r14072 r14495 399 399 ! Charnock's constant, increases with the wind : 400 400 zgt10 = 0.5 + SIGN(0.5_wp,(zw - 10)) ! If zw<10. --> 0, else --> 1 401 zgt18 = 0.5 + SIGN(0.5_wp,(zw - 18. )) ! If zw<18. --> 0, else --> 1401 zgt18 = 0.5 + SIGN(0.5_wp,(zw - 18._wp)) ! If zw<18. --> 0, else --> 1 402 402 ! 403 403 charn_coare3p0(ji,jj) = (1. - zgt10)*0.011 & ! wind is lower than 10 m/s
Note: See TracChangeset
for help on using the changeset viewer.