Changeset 14789 for NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU/src/OCE/DIU/diu_coolskin.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/DIU/diu_coolskin.F90
r13722 r14789 20 20 USE lib_mpp 21 21 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 22 22 23 23 IMPLICIT NONE 24 24 PRIVATE … … 34 34 REAL(wp), PRIVATE, PARAMETER :: pp_rhoa = 1.20421_wp ! density of air (at 20C) 35 35 REAL(wp), PRIVATE, PARAMETER :: pp_cda = 1.45e-3_wp ! assumed air-sea drag coefficient for calculating wind speed 36 36 37 37 ! Key variables 38 38 REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:) :: x_csdsst ! Cool skin delta SST … … 46 46 !! $Id$ 47 47 !! Software governed by the CeCILL license (see ./LICENSE) 48 !!---------------------------------------------------------------------- 49 CONTAINS 50 48 !!---------------------------------------------------------------------- 49 CONTAINS 50 51 51 SUBROUTINE diurnal_sst_coolskin_init 52 52 !!---------------------------------------------------------------------- … … 55 55 !! ** Purpose : initialise the cool skin model 56 56 !! 57 !! ** Method : 57 !! ** Method : 58 58 !! 59 59 !! ** Reference : 60 !! 60 !! 61 61 !!---------------------------------------------------------------------- 62 62 ALLOCATE( x_csdsst(jpi,jpj), x_csthick(jpi,jpj) ) … … 73 73 !! ** Purpose : Time-step the Artale cool skin model 74 74 !! 75 !! ** Method : 75 !! ** Method : 76 76 !! 77 !! ** Reference : 77 !! ** Reference : 78 78 !!---------------------------------------------------------------------- 79 79 ! Dummy variables … … 82 82 REAL(wp), INTENT(IN), DIMENSION(jpi,jpj) :: psrho ! Water density (kg/m^3) 83 83 REAL(wp), INTENT(IN) :: pDt ! Time-step 84 84 85 85 ! Local variables 86 REAL(wp), DIMENSION(jpi,jpj) :: z_fv ! Friction velocity 86 REAL(wp), DIMENSION(jpi,jpj) :: z_fv ! Friction velocity 87 87 REAL(wp), DIMENSION(jpi,jpj) :: z_gamma ! Dimensionless function of wind speed 88 88 REAL(wp), DIMENSION(jpi,jpj) :: z_lamda ! Sauders (dimensionless) proportionality constant … … 91 91 REAL(wp) :: z_zty ! Temporary v wind stress 92 92 REAL(wp) :: z_zmod ! Temporary total wind stress 93 93 94 94 INTEGER :: ji,jj 95 95 !!---------------------------------------------------------------------- … … 105 105 ELSE 106 106 z_fv(ji,jj) = 0. 107 z_wspd(ji,jj) = 0. 107 z_wspd(ji,jj) = 0. 108 108 ENDIF 109 109 !
Note: See TracChangeset
for help on using the changeset viewer.