Changeset 6662

Timestamp:

2016-06-03T13:22:49+02:00 (9 years ago)

Author:

jgraham

Message:

AMM15 is not running with CICE, so need to prevent unrealistically low temperatures.

File:

• branches/UKMO/dev_r5518_amm15_test/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_amm15_test/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90

@@ -93 +93 @@
       INTEGER, INTENT(in) ::   kt    ! ocean time-step index
       !!
-      INTEGER  ::   jk, jn    ! dummy loop indices
+      INTEGER  ::   ji, jj, jk, jn    ! dummy loop indices
       REAL(wp) ::   zfact     ! local scalars
       REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrdt, ztrds
@@ -107 +107 @@
          rbcp = 0.25_wp * (1._wp + atfp) * (1._wp + atfp) * ( 1._wp - atfp)      ! Brown & Campana parameter for semi-implicit hpg
       ENDIF
+
+      ! JGraham: Update after tracer to remove any temp < -2C (no sea ice in AMM15).
+      DO jk = 1, jpk
+         DO jj = 1, jpj
+            DO ji = 1, jpi
+               IF(tsa(ji,jj,jk,jp_tem) < -2.e0) THEN
+                  tsa(ji,jj,jk,jp_tem) = -2.e0 
+               ENDIF
+            END DO
+         END DO
+      END DO
 
       ! Update after tracer on domain lateral boundaries