*IF DEF,CONTROL,AND,DEF,OCEAN RESETOC1.2
C ******************************COPYRIGHT****************************** GTS2F400.8263
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved. GTS2F400.8264
C GTS2F400.8265
C Use, duplication or disclosure of this code is subject to the GTS2F400.8266
C restrictions as set forth in the contract. GTS2F400.8267
C GTS2F400.8268
C Meteorological Office GTS2F400.8269
C London Road GTS2F400.8270
C BRACKNELL GTS2F400.8271
C Berkshire UK GTS2F400.8272
C RG12 2SZ GTS2F400.8273
C GTS2F400.8274
C If no contract has been raised with this copy of the code, the use, GTS2F400.8275
C duplication or disclosure of it is strictly prohibited. Permission GTS2F400.8276
C to do so must first be obtained in writing from the Head of Numerical GTS2F400.8277
C Modelling at the above address. GTS2F400.8278
C ******************************COPYRIGHT****************************** GTS2F400.8279
C GTS2F400.8280
CLL Subroutine: RESETOCN ---------------------------------------------- RESETOC1.3
CLL RESETOC1.4
CLL Purpose: Control routine to perform recalculations of prognostic RESETOC1.5
CLL quantities following dump. For reproducibility, various RESETOC1.6
CLL fields need to be recalculated using rounded values. RESETOC1.7
CLL RESETOC1.8
CLL Tested under compiler: cf77 RESETOC1.9
CLL Tested under OS version: UNICOS 7.0.5 RESETOC1.10
CLL RESETOC1.11
CLL Model Modification history: RESETOC1.12
CLL version date RESETOC1.13
CLL 3.3 04/10/93 : introduced as new DECK to fix restartability RESETOC1.14
CLL problem in coupled model. Author: T.C.Johns RESETOC1.15
CLL RESETOC1.16
CLL Programming standard: UM Doc Paper 3, version 2 (7/9/90) RESETOC1.17
CLL RESETOC1.18
CLL Logical components covered: C0 RESETOC1.19
CLL RESETOC1.20
CLL Project task: C0 RESETOC1.21
CLL RESETOC1.22
CLL External documentation: On-line UM document C0 - The top-level RESETOC1.23
CLL control system RESETOC1.24
CLL RESETOC1.25
CLL ------------------------------------------------------------------- RESETOC1.26
C*L Interface and arguments: ------------------------------------------ RESETOC1.27
C RESETOC1.28
SUBROUTINE RESETOCN( 1,1RESETOC1.29
*CALL ARGSIZE 
RESETOC1.30
*CALL ARGD1 RESETOC1.31
*CALL ARGPTRO RESETOC1.32
& ICODE,CMESSAGE) RESETOC1.33
C RESETOC1.34
IMPLICIT NONE RESETOC1.35
INTEGER ICODE ! OUT - error return code RESETOC1.36
CHARACTER*(*) CMESSAGE ! OUT - error message RESETOC1.37
C*---------------------------------------------------------------------- RESETOC1.38
C RESETOC1.39
C Type declarations and sizes RESETOC1.40
C RESETOC1.41
*CALL TYPSIZE RESETOC1.42
*CALL TYPD1 RESETOC1.43
*CALL TYPPTRO RESETOC1.44
C RESETOC1.45
C Subroutines called RESETOC1.46
C RESETOC1.47
EXTERNAL DATASWAP RESETOC1.48
C RESETOC1.49
CL---------------------------------------------------------------------- RESETOC1.50
CL 1. Replicate (possibly) 32-bit rounded data in second timelevel RESETOC1.51
CL after dump writeup so that coupling O-->A is consistent whether RESETOC1.52
CL or not the model stops and starts from the dump. RESETOC1.53
CL RESETOC1.54
CALL DATASWAP(O_LEN_DUALDATA OSI0F402.5
& ,D1(joc_tracer(1,2)),D1(joc_tracer(1,1))) RESETOC1.56
IF (ICODE.GT.0) GOTO 999 RESETOC1.57
C RESETOC1.58
999 CONTINUE RESETOC1.59
RETURN RESETOC1.60
END RESETOC1.61
*ENDIF RESETOC1.62