Changeset 13226 for NEMO/trunk/src/OCE/DYN/sshwzv.F90
- Timestamp:
- 2020-07-02T16:24:31+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DYN/sshwzv.F90
r13216 r13226 115 115 IF ( .NOT.ln_dynspg_ts ) THEN 116 116 IF( ln_bdy ) THEN 117 CALL lbc_lnk( 'sshwzv', pssh(:,:,Kaa), 'T', 1. ) ! Not sure that's necessary117 CALL lbc_lnk( 'sshwzv', pssh(:,:,Kaa), 'T', 1.0_wp ) ! Not sure that's necessary 118 118 CALL bdy_ssh( pssh(:,:,Kaa) ) ! Duplicate sea level across open boundaries 119 119 ENDIF … … 176 176 END_2D 177 177 END DO 178 CALL lbc_lnk('sshwzv', zhdiv, 'T', 1. ) ! - ML - Perhaps not necessary: not used for horizontal "connexions"178 CALL lbc_lnk('sshwzv', zhdiv, 'T', 1.0_wp) ! - ML - Perhaps not necessary: not used for horizontal "connexions" 179 179 ! ! Is it problematic to have a wrong vertical velocity in boundary cells? 180 180 ! ! Same question holds for hdiv. Perhaps just for security … … 364 364 END_3D 365 365 ENDIF 366 CALL lbc_lnk( 'sshwzv', Cu_adv, 'T', 1. )366 CALL lbc_lnk( 'sshwzv', Cu_adv, 'T', 1.0_wp ) 367 367 ! 368 368 CALL iom_put("Courant",Cu_adv)
Note: See TracChangeset
for help on using the changeset viewer.