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 #323


Ignore:
Timestamp:
2009-02-04T17:36:14+01:00 (15 years ago)
Author:
ctlod
Comment:

Legend:

Unmodified
Added
Removed
Modified

  • Ticket #323

    • Property Status changed from new to closed
    • Property Resolution changed from to fixed

  • Ticket #323 – Description

    initial v1  
    33Bug in sbcssr.F90 (SUBROUTINE sbc_ssr( kt )) 
    44 
    5 In the case nn_sssr == 2, the sss data isn't read ! 
     5In the case nn_sssr == 2, the sss data isn't read as the read of the namelist ! 
    66 
    7 line 144 should be  
    8  
     7lines 121 and 144 should be:  
    98 
    109{{{ 
    … …  
    1211}}} 
    1312 
    14 in the block: 
     13in both blocks: 
     14 
     15{{{ 
     16    121          IF( nn_sssr == 1 ) THEN      ! set sf_sss structure 
     17    122             ! 
     18    123             ALLOCATE( sf_sss(1), STAT=ierror ) 
     19    124             IF( ierror > 0 ) THEN 
     20    125                CALL ctl_stop( 'sbc_ssr: unable to allocate sf_sss structure' )   ;   RETURN 
     21    126             ENDIF 
     22    127             ALLOCATE( sf_sss(1)%fnow(jpi,jpj) ) 
     23    128             ALLOCATE( sf_sss(1)%fdta(jpi,jpj,2) ) 
     24    129  
     25    130             ! fill sf_sss with sn_sss and control print 
     26    131             CALL fld_fill( sf_sss, (/ sn_sss /), cn_dir, 'sbc_ssr', 'SSS restoring term toward SSS data', 'namsbc_ssr' ) 
     27    132  
     28    133          ENDIF 
     29}}} 
     30 
     31and  
    1532 
    1633{{{