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 234 for trunk/NEMO/OPA_SRC/DYN/divcur.F90 – NEMO

Ignore:
Timestamp:
2005-03-22T11:14:32+01:00 (19 years ago)
Author:
opalod
Message:

CT : BUGFIX165 : no sign change on the vorticity field (rotn(:,:) field) at the North fold boundary

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DYN/divcur.F90

    r78 r234  
    229229      ! 4. Lateral boundary conditions on hdivn and rotn 
    230230      ! ---------------------------------=======---====== 
    231       CALL lbc_lnk( hdivn, 'T',  1. )     ! T-point, no sign change 
    232       CALL lbc_lnk( rotn , 'F', -1. )     ! F-point,    sign change 
     231      CALL lbc_lnk( hdivn, 'T', 1. )     ! T-point, no sign change 
     232      CALL lbc_lnk( rotn , 'F', 1. )     ! F-point, no sign change 
    233233 
    234234   END SUBROUTINE div_cur 
    … …  
    340340      ! 4. Lateral boundary conditions on hdivn and rotn 
    341341      ! ---------------------------------=======---====== 
    342       CALL lbc_lnk( hdivn, 'T',  1. )       ! T-point, no sign change 
    343       CALL lbc_lnk( rotn , 'F', -1. )       ! F-point,    sign change 
     342      CALL lbc_lnk( hdivn, 'T', 1. )       ! T-point, no sign change 
     343      CALL lbc_lnk( rotn , 'F', 1. )       ! F-point, no sign change 
    344344 
    345345   END SUBROUTINE div_cur 
Note: See TracChangeset for help on using the changeset viewer.