- Timestamp:
- 2020-07-02T16:41:07+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DYN/dynvor.F90
r13193 r13228 242 242 END DO 243 243 244 CALL lbc_lnk( 'dynvor', zwz, 'F', 1. )244 CALL lbc_lnk( 'dynvor', zwz, 'F', 1.0_wp ) 245 245 246 246 CASE ( np_CRV ) !* Coriolis + relative vorticity … … 257 257 END DO 258 258 259 CALL lbc_lnk( 'dynvor', zwz, 'F', 1. )259 CALL lbc_lnk( 'dynvor', zwz, 'F', 1.0_wp ) 260 260 261 261 END SELECT … … 610 610 END DO ! End of slab 611 611 ! 612 CALL lbc_lnk( 'dynvor', zwz, 'F', 1. )612 CALL lbc_lnk( 'dynvor', zwz, 'F', 1.0_wp ) 613 613 614 614 DO jk = 1, jpkm1 ! Horizontal slab … … 731 731 END DO 732 732 ! 733 CALL lbc_lnk( 'dynvor', zwz, 'F', 1. )733 CALL lbc_lnk( 'dynvor', zwz, 'F', 1.0_wp ) 734 734 ! 735 735 DO jk = 1, jpkm1 ! Horizontal slab … … 861 861 dj_e1v_2(ji,jj) = ( e1v(ji,jj) - e1v(ji ,jj-1) ) * 0.5_wp 862 862 END_2D 863 CALL lbc_lnk_multi( 'dynvor', di_e2u_2, 'T', -1. , dj_e1v_2, 'T', -1.) ! Lateral boundary conditions863 CALL lbc_lnk_multi( 'dynvor', di_e2u_2, 'T', -1.0_wp , dj_e1v_2, 'T', -1.0_wp ) ! Lateral boundary conditions 864 864 ! 865 865 CASE DEFAULT !* F-point metric term : pre-compute di(e2u)/(2*e1e2f) and dj(e1v)/(2*e1e2f) … … 869 869 dj_e1u_2e1e2f(ji,jj) = ( e1u(ji ,jj+1) - e1u(ji,jj) ) * 0.5 * r1_e1e2f(ji,jj) 870 870 END_2D 871 CALL lbc_lnk_multi( 'dynvor', di_e2v_2e1e2f, 'F', -1. , dj_e1u_2e1e2f, 'F', -1.) ! Lateral boundary conditions871 CALL lbc_lnk_multi( 'dynvor', di_e2v_2e1e2f, 'F', -1.0_wp , dj_e1u_2e1e2f, 'F', -1.0_wp ) ! Lateral boundary conditions 872 872 END SELECT 873 873 !
Note: See TracChangeset
for help on using the changeset viewer.