Changeset 14644 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/LDF/ldftra.F90
- Timestamp:
- 2021-03-26T15:33:49+01:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final
- Property svn:externals
-
old new 9 9 10 10 # SETTE 11 ^/utils/CI/sette _wave@13990sette11 ^/utils/CI/sette@14244 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/LDF/ldftra.F90
r14219 r14644 118 118 !! = 10 => = F(z) : constant with a reduction of 1/4 with depth 119 119 !! ! 120 !! =-20 => = F(i,j) = shape read in 'eddy_diffusivity .nc' file120 !! =-20 => = F(i,j) = shape read in 'eddy_diffusivity_2D.nc' file 121 121 !! = 20 = F(i,j) = F(e1,e2) or F(e1^3,e2^3) (lap or bilap case) 122 122 !! = 21 = F(i,j,t) = F(growth rate of baroclinic instability) 123 123 !! ! 124 !! =-30 => = F(i,j,k) = shape read in 'eddy_diffusivity .nc' file124 !! =-30 => = F(i,j,k) = shape read in 'eddy_diffusivity_3D.nc' file 125 125 !! = 30 = F(i,j,k) = 2D (case 20) + decrease with depth (case 10) 126 126 !! = 31 = F(i,j,k,t) = F(local velocity) ( 1/2 |u|e laplacian operator … … 481 481 !! = 10 => = F(z) : constant with a reduction of 1/4 with depth 482 482 !! ! 483 !! =-20 => = F(i,j) = shape read in 'eddy_ diffusivity.nc' file483 !! =-20 => = F(i,j) = shape read in 'eddy_induced_velocity_2D.nc' file 484 484 !! = 20 = F(i,j) = F(e1,e2) or F(e1^3,e2^3) (lap or bilap case) 485 485 !! = 21 = F(i,j,t) = F(growth rate of baroclinic instability) 486 486 !! ! 487 !! =-30 => = F(i,j,k) = shape read in 'eddy_ diffusivity.nc' file487 !! =-30 => = F(i,j,k) = shape read in 'eddy_induced_velocity_3D.nc' file 488 488 !! = 30 = F(i,j,k) = 2D (case 20) + decrease with depth (case 10) 489 489 !! … … 697 697 paeiv(ji,jj,1) = 0.5_wp * ( zaeiw(ji,jj) + zaeiw(ji ,jj+1) ) * vmask(ji,jj,1) 698 698 END_2D 699 CALL lbc_lnk _multi( 'ldftra', paeiu(:,:,1), 'U', 1.0_wp , paeiv(:,:,1), 'V', 1.0_wp ) ! lateral boundary condition699 CALL lbc_lnk( 'ldftra', paeiu(:,:,1), 'U', 1.0_wp , paeiv(:,:,1), 'V', 1.0_wp ) ! lateral boundary condition 700 700 701 701 DO jk = 2, jpkm1 !== deeper values equal the surface one ==!
Note: See TracChangeset
for help on using the changeset viewer.