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.
Ticket Diff – NEMO

Changes between Initial Version and Version 1 of Ticket #59


Ignore:
Timestamp:
2008-01-24T12:32:25+01:00 (16 years ago)
Author:
ctlod
Comment:

Legend:

Unmodified
Added
Removed
Modified

  • Ticket #59

    • Property Status changed from new to assigned
    • Property Owner changed from NEMO team to ctlod

  • Ticket #59 – Description

    initial v1  
    1 The following line in limwri.F90: 
    2     '''     IF( jf == 7  .OR. jf == 8  .OR. jf == 11 .OR. jf == 12 .OR. jf == 15 .OR.   & 
    3             &                            jf == 23 .OR. jf == 24 .OR. jf == 16 ) THEN''' 
    4             CALL lbc_lnk( zfield, 'T', -1. ) 
    5          ELSE 
    6             CALL lbc_lnk( zfield, 'T',  1. ) 
    7          ENDIF 
    8 must be reduced to: 
    9 '''         IF( jf == 7  .OR. jf == 8  .OR. jf == 15 .OR. jf == 16  ) THEN''' 
    10             CALL lbc_lnk( zfield, 'T', -1. ) 
    11          ELSE 
    12             CALL lbc_lnk( zfield, 'T',  1. ) 
    13          ENDIF 
     1The following line in limwri.F90:[[BR]] 
     2    '''     IF( jf == 7  .OR. jf == 8  .OR. jf == 11 .OR. jf == 12 .OR. jf == 15 .OR.   &[[BR]] 
     3            &                            jf == 23 .OR. jf == 24 .OR. jf == 16 ) THEN'''[[BR]] 
     4            CALL lbc_lnk( zfield, 'T', -1. )[[BR]] 
     5         ELSE[[BR]] 
     6            CALL lbc_lnk( zfield, 'T',  1. )[[BR]] 
     7         ENDIF[[BR]] 
     8must be reduced to:[[BR]] 
     9'''         IF( jf == 7  .OR. jf == 8  .OR. jf == 15 .OR. jf == 16  ) THEN'''[[BR]] 
     10            CALL lbc_lnk( zfield, 'T', -1. )[[BR]] 
     11         ELSE[[BR]] 
     12            CALL lbc_lnk( zfield, 'T',  1. )[[BR]] 
     13         ENDIF[[BR]] 
    1414 
    1515since fields 11 & 12 are scalar and 23 & 24 doesn't exist in this version.