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

Changeset 755 for branches


Ignore:
Timestamp:
2007-12-07T13:37:12+01:00 (16 years ago)
Author:
ctlod
Message:

ssst_m() array must be in Kelvin instead of elcius in the Thermodynamics part, see ticket:#35

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r717 r755  
    167167      !-------------------------------------------------------------------------- 
    168168 
     169      sst_m(:,:) = sst_m(:,:) + rt0 
     170 
    169171      !CDIR NOVERRCHK 
    170172      DO jj = 1, jpj 
    … …  
    212214      END DO 
    213215       
     216      sst_m(:,:) = sst_m(:,:) - rt0 
    214217       
    215218      !         Select icy points and fulfill arrays for the vectorial grid. 
Note: See TracChangeset for help on using the changeset viewer.