typo in bulk_flux.F

Message

longmtm · #1 Unread post by **longmtm** » Mon Dec 04, 2006 5:27 pm

Hi,

Just to point out a tiny typo in bulk_flux.F of ROMS 2.2

!
! Mean absoption in cool-skin layer.
!
Fc=0.065_r8+11.0_r8*Hcool- &
& (1.0_r8-EXP(-Hcool*1250.0_8))*6.6E-5_r8/Hcool

where 1250.0_8 should be 1250.0_r8 ? Don't know what the effect will be with "r" left out.

Wen

m.hadfield · Tue Dec 05, 2006 10:00 pm

Don't know what the effect will be with "r" left out.

None at all on most platforms as r8 (the real-number kind that supports double precisions) is usually equal to 8. But there is a logical distinction that should be preserved, so thanks for pointing it out.