Changeset 9406

Timestamp:

2018-03-15T17:29:53+01:00 (7 years ago)

Author:

mathiot

Message:

fix for ticket #2066 in nemo 3.6

File:

• branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90 (modified) (1 diff)

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

@@ -514 +514 @@
       END DO
 
+! convert CT to Tpot
+      IF (ln_useCT) ttbl=eos_pt_from_ct(ttbl,stbl)
 ! Calculate in-situ temperature (ref to surface)
       zti(:,:)=tinsitu( ttbl, stbl, zpress )