Changeset 11111 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_ncar.F90
- Timestamp:
- 2019-06-14T15:55:28+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_ncar.F90
r10190 r11111 11 11 !! 12 12 !! Routine turb_ncar maintained and developed in AeroBulk 13 !! (http ://aerobulk.sourceforge.net/)13 !! (https://github.com/brodeau/aerobulk/) 14 14 !! 15 15 !! L. Brodeau, 2015 … … 43 43 44 44 PUBLIC :: TURB_NCAR ! called by sbcblk.F90 45 46 ! ! NCAR own values for given constants:47 REAL(wp), PARAMETER :: rctv0 = 0.608 ! constant to obtain virtual temperature...48 45 49 46 !!---------------------------------------------------------------------- … … 76 73 !! => 'vkarmn' and 'grav' 77 74 !! 78 !! ** Author: L. Brodeau, june 2016 / AeroBulk (https:// sourceforge.net/p/aerobulk)75 !! ** Author: L. Brodeau, june 2016 / AeroBulk (https://github.com/brodeau/aerobulk/) 79 76 !! 80 77 !! INPUT : … … 238 235 !! Origin: Large & Yeager 2008 eq.(11a) and eq.(11b) 239 236 !! 240 !! ** Author: L. Brodeau, june 2016 / AeroBulk (https:// sourceforge.net/p/aerobulk)237 !! ** Author: L. Brodeau, june 2016 / AeroBulk (https://github.com/brodeau/aerobulk/) 241 238 !!---------------------------------------------------------------------------------- 242 239 REAL(wp), DIMENSION(jpi,jpj), INTENT(in) :: pw10 ! scalar wind speed at 10m (m/s) … … 277 274 !! and L is M-O length 278 275 !! 279 !! ** Author: L. Brodeau, june 2016 / AeroBulk (https:// sourceforge.net/p/aerobulk)276 !! ** Author: L. Brodeau, june 2016 / AeroBulk (https://github.com/brodeau/aerobulk/) 280 277 !!---------------------------------------------------------------------------------- 281 278 REAL(wp), DIMENSION(jpi,jpj), INTENT(in) :: pzeta … … 311 308 !! and L is M-O length 312 309 !! 313 !! ** Author: L. Brodeau, june 2016 / AeroBulk (https:// sourceforge.net/p/aerobulk)310 !! ** Author: L. Brodeau, june 2016 / AeroBulk (https://github.com/brodeau/aerobulk/) 314 311 !!---------------------------------------------------------------------------------- 315 312 REAL(wp), DIMENSION(jpi,jpj), INTENT(in) :: pzeta
Note: See TracChangeset
for help on using the changeset viewer.