New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13228 for NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DYN/dynvor.F90 – NEMO

Ignore:
Timestamp:
2020-07-02T16:41:07+02:00 (4 years ago)
Author:
smasson
Message:

better e3: update with trunk@13227 see #2385

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DYN/dynvor.F90

    r13193 r13228  
    242242         END DO 
    243243 
    244          CALL lbc_lnk( 'dynvor', zwz, 'F', 1. ) 
     244         CALL lbc_lnk( 'dynvor', zwz, 'F', 1.0_wp ) 
    245245 
    246246      CASE ( np_CRV )                           !* Coriolis + relative vorticity 
     
    257257         END DO 
    258258 
    259          CALL lbc_lnk( 'dynvor', zwz, 'F', 1. ) 
     259         CALL lbc_lnk( 'dynvor', zwz, 'F', 1.0_wp ) 
    260260 
    261261      END SELECT 
     
    610610      END DO                                           !   End of slab 
    611611         ! 
    612       CALL lbc_lnk( 'dynvor', zwz, 'F', 1. ) 
     612      CALL lbc_lnk( 'dynvor', zwz, 'F', 1.0_wp ) 
    613613 
    614614      DO jk = 1, jpkm1                                 ! Horizontal slab 
     
    731731      END DO 
    732732      ! 
    733       CALL lbc_lnk( 'dynvor', zwz, 'F', 1. ) 
     733      CALL lbc_lnk( 'dynvor', zwz, 'F', 1.0_wp ) 
    734734      ! 
    735735      DO jk = 1, jpkm1                                 ! Horizontal slab 
     
    861861               dj_e1v_2(ji,jj) = ( e1v(ji,jj) - e1v(ji  ,jj-1) ) * 0.5_wp 
    862862            END_2D 
    863             CALL lbc_lnk_multi( 'dynvor', di_e2u_2, 'T', -1. , dj_e1v_2, 'T', -1. )   ! Lateral boundary conditions 
     863            CALL lbc_lnk_multi( 'dynvor', di_e2u_2, 'T', -1.0_wp , dj_e1v_2, 'T', -1.0_wp )   ! Lateral boundary conditions 
    864864            ! 
    865865         CASE DEFAULT                        !* F-point metric term :   pre-compute di(e2u)/(2*e1e2f) and dj(e1v)/(2*e1e2f) 
     
    869869               dj_e1u_2e1e2f(ji,jj) = ( e1u(ji  ,jj+1) - e1u(ji,jj) )  * 0.5 * r1_e1e2f(ji,jj) 
    870870            END_2D 
    871             CALL lbc_lnk_multi( 'dynvor', di_e2v_2e1e2f, 'F', -1. , dj_e1u_2e1e2f, 'F', -1. )   ! Lateral boundary conditions 
     871            CALL lbc_lnk_multi( 'dynvor', di_e2v_2e1e2f, 'F', -1.0_wp , dj_e1u_2e1e2f, 'F', -1.0_wp )   ! Lateral boundary conditions 
    872872         END SELECT 
    873873         ! 
Note: See TracChangeset for help on using the changeset viewer.