Changeset 14644 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DYN/dynldf_iso.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/DYN/dynldf_iso.F90
r14219 r14644 136 136 END_3D 137 137 ! Lateral boundary conditions on the slopes 138 CALL lbc_lnk _multi( 'dynldf_iso', uslp , 'U', -1.0_wp, vslp , 'V', -1.0_wp, wslpi, 'W', -1.0_wp, wslpj, 'W', -1.0_wp )138 CALL lbc_lnk( 'dynldf_iso', uslp , 'U', -1.0_wp, vslp , 'V', -1.0_wp, wslpi, 'W', -1.0_wp, wslpj, 'W', -1.0_wp ) 139 139 ! 140 140 ENDIF … … 169 169 170 170 IF( ln_zps ) THEN ! z-coordinate - partial steps : min(e3u) 171 DO_2D( 0, 0, 0, 1)171 DO_2D( 0, 1, 0, 0 ) 172 172 zabe1 = ( ahmt(ji,jj,jk)+rn_ahm_b ) * e2t(ji,jj) & 173 173 & * MIN( e3u(ji ,jj,jk,Kmm), & … … 184 184 END_2D 185 185 ELSE ! other coordinate system (zco or sco) : e3t 186 DO_2D( 0, 0, 0, 1)186 DO_2D( 0, 1, 0, 0 ) 187 187 zabe1 = ( ahmt(ji,jj,jk)+rn_ahm_b ) & 188 188 & * e2t(ji,jj) * e3t(ji,jj,jk,Kmm) * r1_e1t(ji,jj) … … 220 220 ! i-flux at f-point | t | 221 221 222 DO_2D( 0, 0, 1, 0 )222 DO_2D( 1, 0, 0, 0 ) 223 223 zabe1 = ( ahmf(ji,jj,jk) + rn_ahm_b ) & 224 224 & * e2f(ji,jj) * e3f(ji,jj,jk) * r1_e1f(ji,jj) … … 236 236 ! j-flux at t-point 237 237 IF( ln_zps ) THEN ! z-coordinate - partial steps : min(e3u) 238 DO_2D( 0, 1, 1, 0)238 DO_2D( 1, 0, 0, 1 ) 239 239 zabe2 = ( ahmt(ji,jj,jk)+rn_ahm_b ) * e1t(ji,jj) & 240 240 & * MIN( e3v(ji,jj ,jk,Kmm), & … … 251 251 END_2D 252 252 ELSE ! other coordinate system (zco or sco) : e3t 253 DO_2D( 0, 1, 1, 0)253 DO_2D( 1, 0, 0, 1 ) 254 254 zabe2 = ( ahmt(ji,jj,jk)+rn_ahm_b ) & 255 255 & * e1t(ji,jj) * e3t(ji,jj,jk,Kmm) * r1_e2t(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.