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 805 for branches – NEMO

Changeset 805 for branches


Ignore:
Timestamp:
2008-01-31T10:48:42+01:00 (16 years ago)
Author:
ctlod
Message:

correct wrong sign on scalar fields 11 & 12 when applying lbc_lnk, see ticket:#59

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_001_SBC/NEMO/LIM_SRC/limwri.F90

    r717 r805  
    176176         END DO 
    177177          
    178          IF( jf == 7  .OR. jf == 8  .OR. jf == 11 .OR. jf == 12 .OR. jf == 15 .OR.   & 
    179             &                            jf == 23 .OR. jf == 24 .OR. jf == 16 ) THEN  
     178         IF( jf == 7  .OR. jf == 8  .OR. jf == 15 .OR. jf == 16 ) THEN 
    180179            CALL lbc_lnk( zfield, 'T', -1. ) 
    181180         ELSE  
Note: See TracChangeset for help on using the changeset viewer.