*IF DEF,OCEAN ORH1F305.462
C ******************************COPYRIGHT****************************** GTS2F400.5167
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved. GTS2F400.5168
C GTS2F400.5169
C Use, duplication or disclosure of this code is subject to the GTS2F400.5170
C restrictions as set forth in the contract. GTS2F400.5171
C GTS2F400.5172
C Meteorological Office GTS2F400.5173
C London Road GTS2F400.5174
C BRACKNELL GTS2F400.5175
C Berkshire UK GTS2F400.5176
C RG12 2SZ GTS2F400.5177
C GTS2F400.5178
C If no contract has been raised with this copy of the code, the use, GTS2F400.5179
C duplication or disclosure of it is strictly prohibited. Permission GTS2F400.5180
C to do so must first be obtained in writing from the Head of Numerical GTS2F400.5181
C Modelling at the above address. GTS2F400.5182
C ******************************COPYRIGHT****************************** GTS2F400.5183
C GTS2F400.5184
C*LL KEEPTRAC.3
CLL SUBROUTINE KEEPTRAC KEEPTRAC.4
CLL ------------------- KEEPTRAC.5
CLL THIS ROUTINE STORES THE CURRENT TIME LEVEL VALUES OF THE SSTS KEEPTRAC.6
CLL AND SURFACE SALINITIES (AS OF THE START OF THE TIMESTEP) IN THE KEEPTRAC.7
CLL ARRAYS SURFTEMP AND SURFSAL. NOTE THAT THE TRUE VALUE OF THE KEEPTRAC.8
CLL SALINITY IS STORED, NOT THE NORMAL OCEAN MODEL VALUE WHICH HAS KEEPTRAC.9
CLL THE BASE VALUE OF 0.035 SUBTRACTED. KEEPTRAC.10
CLL THIS ROUTINE IS CALLED FROM WITHIN TRACER, BEFORE ANY SIGNIFICANT KEEPTRAC.11
CLL PROCESSING HAS TAKEN PLACE. KEEPTRAC.12
CLL IT CAN BE COMPILED BY ANY FORTRAN COMPILER WHICH TOLERATES KEEPTRAC.13
CLL IN-LINE COMMENTS. KEEPTRAC.14
CLL AUTHOR: D L ROBERTS KEEPTRAC.15
CLL DATE: 21/12/90 KEEPTRAC.16
CLL REVIEWED BY: J F THOMPSON KEEPTRAC.17
CLL VERSION 1.1 KEEPTRAC.18
CLL PROGRAMMING STANDARDS USE COX NAMING CONVENTION FOR COX VARIABLES KEEPTRAC.19
CLL OTHERWISE FOLLOWS UM DOC PAPER 4 VERSION 1. KEEPTRAC.20
CLL THIS FORMS PART OF SYSTEM COMPONENT P4. KEEPTRAC.21
C* --------------------------------------------------------------- KEEPTRAC.22
C*L KEEPTRAC.23
SUBROUTINE KEEPTRAC(T,SURFTEMP,SURFSAL,FM,IMT,KM,NT) 1KEEPTRAC.24
C KEEPTRAC.25
IMPLICIT NONE KEEPTRAC.26
C KEEPTRAC.27
INTEGER KEEPTRAC.28
+ IMT, ! IN NUMBER OF COLUMNS. KEEPTRAC.29
+ KM, ! IN NUMBER OF LAYERS. KEEPTRAC.30
+ NT ! IN NUMBER OF TRACERS. KEEPTRAC.31
C KEEPTRAC.32
REAL KEEPTRAC.33
+ T(IMT,KM,NT), ! IN TRACER ARRAY AT PRESENT TIME LEVEL. KEEPTRAC.34
+ SURFTEMP(IMT), ! OUT TOP LAYER TEMPERATURES. KEEPTRAC.35
+ SURFSAL(IMT), ! OUT TRUE TOP LAYER SALINITIES. KEEPTRAC.36
+ FM(IMT,KM) ! IN MASKING ARRAY FOR TRACER POINTS: EQUALS 1.0 KEEPTRAC.37
+ ! AT OCEAN POINTS AND 0.0 AT LAND/SEABED POINTS. KEEPTRAC.38
C* KEEPTRAC.39
C LOCAL VARIABLES. KEEPTRAC.40
C KEEPTRAC.41
INTEGER I ! LOOP COUNTER FOR COLUMNS. KEEPTRAC.42
C KEEPTRAC.43
DO 100 I = 1,IMT KEEPTRAC.44
SURFTEMP(I) = T(I,1,1)*FM(I,1) KEEPTRAC.45
SURFSAL(I) = ( T(I,1,2) + 0.035 )*FM(I,1) KEEPTRAC.46
100 CONTINUE KEEPTRAC.47
C KEEPTRAC.48
RETURN KEEPTRAC.49
END KEEPTRAC.50
*ENDIF KEEPTRAC.51