Changeset 12839 for NEMO/trunk/src/TOP/PISCES/SED

Timestamp:

2020-05-01T10:39:32+02:00 (4 years ago)

Author:

cetlod

Message:

trunk : Bugfixes PISCES model, see ticket #2454, #2455

Location:

NEMO/trunk/src/TOP/PISCES/SED

Files:

• sedchem.F90 (modified) (1 diff)
• sedinorg.F90 (modified) (1 diff)

NEMO/trunk/src/TOP/PISCES/SED/sedchem.F90

@@ -577 +577 @@
          saltprac(:) = salt(:) * 35.0 / 35.16504
       ELSE
-         saltprac(:) = temp(:)
+         saltprac(:) = salt(:)
       ENDIF
 

NEMO/trunk/src/TOP/PISCES/SED/sedinorg.F90

@@ -89 +89 @@
             zsolcpcl = zsolcpcl + solcp(ji,jk,jsclay) * dz(jk)
          END DO
+         zsolcpsi = MAX( zsolcpsi, rtrn )
          zsieq(ji) = sieqs(ji) * MAX(0.25, 1.0 - (0.045 * zsolcpcl / zsolcpsi )**0.58 )
          zsieq(ji) = MAX( rtrn, sieqs(ji) )