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 598 for trunk/NEMO/LIM_SRC/limwri.F90 – NEMO

Ignore:
Timestamp:
2007-02-20T15:16:53+01:00 (17 years ago)
Author:
opalod
Message:

nemo_v2_bugfix_006 : CT : - avoid to change sign of 2 surface fluxes (#11 & #12) when calling lbc_lnk

  • remove fields #23 & #24 which doesn't exist
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/LIM_SRC/limwri.F90

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