- Timestamp:
- 2020-10-19T10:48:19+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DYN/sshwzv.F90
r13571 r13630 119 119 IF ( .NOT.ln_dynspg_ts ) THEN 120 120 IF( ln_bdy ) THEN 121 #if defined key_mpi3 122 CALL lbc_lnk_nc_multi( 'sshwzv', pssh(:,:,Kaa), 'T', 1.0_wp ) ! Not sure that's necessary 123 #else 121 124 CALL lbc_lnk( 'sshwzv', pssh(:,:,Kaa), 'T', 1.0_wp ) ! Not sure that's necessary 125 #endif 122 126 CALL bdy_ssh( pssh(:,:,Kaa) ) ! Duplicate sea level across open boundaries 123 127 ENDIF … … 182 186 END_2D 183 187 END DO 188 #if defined key_mpi3 189 CALL lbc_lnk_nc_multi('sshwzv', zhdiv, 'T', 1.0_wp) ! - ML - Perhaps not necessary: not used for horizontal "connexions" 190 #else 184 191 CALL lbc_lnk('sshwzv', zhdiv, 'T', 1.0_wp) ! - ML - Perhaps not necessary: not used for horizontal "connexions" 192 #endif 185 193 ! ! Is it problematic to have a wrong vertical velocity in boundary cells? 186 194 ! ! Same question holds for hdiv. Perhaps just for security … … 388 396 END_3D 389 397 ENDIF 398 #if defined key_mpi3 399 CALL lbc_lnk_nc_multi( 'sshwzv', Cu_adv, 'T', 1.0_wp ) 400 #else 390 401 CALL lbc_lnk( 'sshwzv', Cu_adv, 'T', 1.0_wp ) 402 #endif 391 403 ! 392 404 CALL iom_put("Courant",Cu_adv)
Note: See TracChangeset
for help on using the changeset viewer.