- Timestamp:
- 2020-07-03T19:15:31+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/DYN/sshwzv.F90
r13232 r13247 116 116 IF ( .NOT.ln_dynspg_ts ) THEN 117 117 IF( ln_bdy ) THEN 118 CALL lbc_lnk( 'sshwzv', pssh(:,:,Kaa), 'T', 1. ) ! Not sure that's necessary118 CALL lbc_lnk( 'sshwzv', pssh(:,:,Kaa), 'T', 1.0_wp ) ! Not sure that's necessary 119 119 CALL bdy_ssh( pssh(:,:,Kaa) ) ! Duplicate sea level across open boundaries 120 120 ENDIF … … 177 177 END_2D 178 178 END DO 179 CALL lbc_lnk('sshwzv', zhdiv, 'T', 1. ) ! - ML - Perhaps not necessary: not used for horizontal "connexions"179 CALL lbc_lnk('sshwzv', zhdiv, 'T', 1.0_wp) ! - ML - Perhaps not necessary: not used for horizontal "connexions" 180 180 ! ! Is it problematic to have a wrong vertical velocity in boundary cells? 181 181 ! ! Same question holds for hdiv. Perhaps just for security … … 369 369 END_3D 370 370 ENDIF 371 CALL lbc_lnk( 'sshwzv', Cu_adv, 'T', 1. )371 CALL lbc_lnk( 'sshwzv', Cu_adv, 'T', 1.0_wp ) 372 372 ! 373 373 CALL iom_put("Courant",Cu_adv)
Note: See TracChangeset
for help on using the changeset viewer.