Changeset 6662


Ignore:
Timestamp:
2016-06-03T13:22:49+02:00 (5 years ago)
Author:
jgraham
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_amm15_test/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90

    r5886 r6662  
    9393      INTEGER, INTENT(in) ::   kt    ! ocean time-step index 
    9494      !! 
    95       INTEGER  ::   jk, jn    ! dummy loop indices 
     95      INTEGER  ::   ji, jj, jk, jn    ! dummy loop indices 
    9696      REAL(wp) ::   zfact     ! local scalars 
    9797      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrdt, ztrds 
     
    107107         rbcp = 0.25_wp * (1._wp + atfp) * (1._wp + atfp) * ( 1._wp - atfp)      ! Brown & Campana parameter for semi-implicit hpg 
    108108      ENDIF 
     109 
     110      ! JGraham: Update after tracer to remove any temp < -2C (no sea ice in AMM15). 
     111      DO jk = 1, jpk 
     112         DO jj = 1, jpj 
     113            DO ji = 1, jpi 
     114               IF(tsa(ji,jj,jk,jp_tem) < -2.e0) THEN 
     115                  tsa(ji,jj,jk,jp_tem) = -2.e0  
     116               ENDIF 
     117            END DO 
     118         END DO 
     119      END DO 
    109120 
    110121      ! Update after tracer on domain lateral boundaries 
Note: See TracChangeset for help on using the changeset viewer.