Changeset 14789 for NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU/src/OCE/SBC/sbcblk_skin_ecmwf.F90
- Timestamp:
- 2021-05-05T13:18:04+02:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev _r12970_AGRIF_CMEMSext/AGRIF5 ^/vendors/AGRIF/dev@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 ^/vendors/PPR@HEAD ext/PPR 8 9 9 10 # SETTE 10 ^/utils/CI/sette@1 3559sette11 ^/utils/CI/sette@14244 sette
-
- Property svn:externals
-
NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU/src/OCE/SBC/sbcblk_skin_ecmwf.F90
r13460 r14789 28 28 !! ** Author: L. Brodeau, November 2019 / AeroBulk (https://github.com/brodeau/aerobulk) 29 29 !!---------------------------------------------------------------------- 30 !! History : 4.x ! 2019-11 (L.Brodeau) Original code 30 !! History : 4.0 ! 2019-11 (L.Brodeau) Original code 31 !! 4.2 ! 2020-12 (L. Brodeau) Introduction of various air-ice bulk parameterizations + improvements 31 32 !!---------------------------------------------------------------------- 32 33 USE oce ! ocean dynamics and tracers … … 35 36 USE sbc_oce ! Surface boundary condition: ocean fields 36 37 37 USE sbc blk_phy ! misc. functions for marine ABL physics (rho_air, q_sat, bulk_formula, etc)38 USE sbc_phy ! Catalog of functions for physical/meteorological parameters in the marine boundary layer 38 39 39 40 USE lib_mpp ! distribued memory computing library … … 160 161 REAL(wp) :: zalfa !: thermal expansion coefficient of sea-water [1/K] 161 162 REAL(wp) :: zdTwl_b, zdTwl_n !: temp. diff. between "almost surface (right below viscous layer) and bottom of WL 162 REAL(wp) :: zfr, zeta 163 REAL(wp) :: zusw, zusw2 164 REAL(wp) :: zLa, zfLa 165 REAL(wp) :: flg, zwf, zQabs 163 REAL(wp) :: zfr, zeta 164 REAL(wp) :: zusw, zusw2 165 REAL(wp) :: zLa, zfLa 166 REAL(wp) :: flg, zwf, zQabs 166 167 REAL(wp) :: ZA, ZB, zL1, zL2 167 168 REAL(wp) :: zcst0, zcst1, zcst2, zcst3
Note: See TracChangeset
for help on using the changeset viewer.