*IF DEF,OCEAN @DYALLOC.4631
C ******************************COPYRIGHT****************************** GTS2F400.1495
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved. GTS2F400.1496
C GTS2F400.1497
C Use, duplication or disclosure of this code is subject to the GTS2F400.1498
C restrictions as set forth in the contract. GTS2F400.1499
C GTS2F400.1500
C Meteorological Office GTS2F400.1501
C London Road GTS2F400.1502
C BRACKNELL GTS2F400.1503
C Berkshire UK GTS2F400.1504
C RG12 2SZ GTS2F400.1505
C GTS2F400.1506
C If no contract has been raised with this copy of the code, the use, GTS2F400.1507
C duplication or disclosure of it is strictly prohibited. Permission GTS2F400.1508
C to do so must first be obtained in writing from the Head of Numerical GTS2F400.1509
C Modelling at the above address. GTS2F400.1510
C ******************************COPYRIGHT****************************** GTS2F400.1511
C GTS2F400.1512
CLL Subroutine: CTODUMP CTODUMP.2
CLL CTODUMP.3
CLL Purpose: To copy some ocean model variables to dump header CTODUMP.4
CLL CTODUMP.5
CLL Author: S.Ineson Date: 28th May 1991 CTODUMP.6
CLL Reviewer: S.J.Foreman Date: 19th June 1991 CTODUMP.7
CLL Tested under compiler: cft77 CTODUMP.8
CLL Tested under OS: UNICOS 5.1 CTODUMP.9
CLL The code must be pre-compiled by the UPDOC system. CTODUMP.10
CLL CTODUMP.11
CLL Code version no: 2 21/05/93 @DYALLOC.4632
CLL Modification record: @DYALLOC.4633
CLL 21/5/93 Dynamic allocation: add arguments SJF @DYALLOC.4634
CLL 01/09/94 (v3.4) Include comdeck ARGOCTOT - ocean parallelisation ORH1F304.118
CLL R. Hill. ORH1F304.119
CLL CTODUMP.14
CLL CTODUMP.15
CLL ------------------------------------------------------------------- CTODUMP.16
C*L CTODUMP.17
SUBROUTINE CTODUMP( 1@DYALLOC.4635
*CALL ARGSIZE 
@DYALLOC.4636
*CALL ARGDUMO @DYALLOC.4637
*CALL ARGOCALL @DYALLOC.4638
& JMT_GLOBAL, ORH6F402.83
* O_STEP,O_INTHD1,O_REALHD20,O_REALHD21, ! ################# @DYALLOC.4639
& O_REALHD22,O_REALHD23 ORH1F304.120
*CALL ARGOCTOT ORH1F304.121
& ) ORH1F304.122
CTODUMP.20
C Argument list CTODUMP.21
C RH141293.67
IMPLICIT NONE RH141293.68
C RH141293.69
CTODUMP.22
INTEGER CTODUMP.23
& O_STEP !IN UM timestep counter CTODUMP.24
&,JMT_GLOBAL ! IN full JMT value for MPP dimesions ORH6F402.84
&,O_INTHD1 !OUT copy of timestep counter CTODUMP.25
REAL CTODUMP.26
& O_REALHD20 !OUT EKTOT Total KE normalised by volume CTODUMP.27
&,O_REALHD21 !OUT PLICEX Energy changes due to implicit effects CTODUMP.28
&,O_REALHD22 !OUT PLICIN on external and internal modes CTODUMP.29
&,O_REALHD23 !OUT BUOY Energy transfer through buoyancy CTODUMP.30
C* CTODUMP.31
C Comdecks CTODUMP.32
CTODUMP.33
*CALL OARRYSIZ ORH6F401.24
*CALL TYPSIZE @DYALLOC.4640
*CALL TYPDUMO @DYALLOC.4641
*CALL TYPOCALL RH141293.70
C RH141293.71
CTODUMP.36
*CALL CNTLOCN ORH1F305.5407
*CALL TYPOCTOT ORH1F304.123
O_INTHD1=O_STEP CTODUMP.37
CTODUMP.38
O_REALHD20 = EKTOT CTODUMP.39
O_REALHD21 = PLICEX CTODUMP.40
O_REALHD22 = PLICIN CTODUMP.41
O_REALHD23 = BUOY CTODUMP.42
CTODUMP.43
RETURN CTODUMP.44
END CTODUMP.45
*ENDIF @DYALLOC.4643