Changeset 13153 for NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE
- Timestamp:
- 2020-06-24T15:23:31+02:00 (4 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/DYN/dynldf_lap_blp.F90
r13149 r13153 25 25 PUBLIC dyn_ldf_lap ! called by dynldf.F90 26 26 PUBLIC dyn_ldf_blp ! called by dynldf.F90 27 28 REAL(wp), ALLOCATABLE, DIMENSION(:, :, :) :: zulap, zvlap 29 REAL(wp), ALLOCATABLE, DIMENSION(:, :) :: zcur, zdiv 27 30 28 31 !! * Substitutions … … 55 58 REAL(wp) :: zsign ! local scalars 56 59 REAL(wp) :: zua, zva ! local scalars 57 REAL(wp), DIMENSION(jpi,jpj) :: zcur, zdiv 58 ! REAL(wp), ALLOCATABLE, DIMENSION(:, :) :: zcur, zdiv 60 ! REAL(wp), DIMENSION(jpi,jpj) :: zcur, zdiv 59 61 !!---------------------------------------------------------------------- 60 62 ! … … 65 67 WRITE(numout,*) '~~~~~~~ ' 66 68 ENDIF 67 !ALLOCATE(zcur(jpi,jpj), zdiv(jpi,jpj))69 IF(kpass == 1) ALLOCATE(zcur(jpi,jpj), zdiv(jpi,jpj)) 68 70 ENDIF 69 71 ! … … 127 129 ! 128 130 ! REAL(wp), DIMENSION(jpi,jpj,jpk) :: zulap, zvlap ! laplacian at u- and v-point 129 REAL(wp), ALLOCATABLE, DIMENSION(:, :, :) :: zulap, zvlap130 131 !!---------------------------------------------------------------------- 131 132 ! -
NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/ZDF/zdfphy.F90
r13081 r13153 257 257 ! !== Kz from chosen turbulent closure ==! (avm_k, avt_k) 258 258 ! 259 zsh2(:, : ) = 0.259 zsh2(:, :, :) = 0. 260 260 IF( l_zdfsh2 ) & !* shear production at w-points (energy conserving form) 261 261 CALL zdf_sh2( ub, vb, un, vn, avm_k, & ! <<== in
Note: See TracChangeset
for help on using the changeset viewer.