Changeset 14037 for NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG/src/OCE/DYN/dynhpg.F90
- Timestamp:
- 2020-12-03T12:20:38+01:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG
- Property svn:externals
-
old new 8 8 9 9 # SETTE 10 ^/utils/CI/sette @13292sette10 ^/utils/CI/sette_wave@13990 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG/src/OCE/DYN/dynhpg.F90
r13364 r14037 296 296 INTEGER :: iku, ikv ! temporary integers 297 297 REAL(wp) :: zcoef0, zcoef1, zcoef2, zcoef3 ! temporary scalars 298 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zhpi, zhpj 299 REAL(wp), DIMENSION(jpi,jpj) :: zgtsu, zgtsv, zgru, zgrv 298 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zhpi, zhpj 299 REAL(wp), DIMENSION(jpi,jpj,jpts) :: zgtsu, zgtsv 300 REAL(wp), DIMENSION(jpi,jpj) :: zgru, zgrv 300 301 !!---------------------------------------------------------------------- 301 302 !
Note: See TracChangeset
for help on using the changeset viewer.