** Next:** diffuse.F
** Up:** The Proudman Oceanographic Laboratory
** Previous:** convectUB.F

**Subsections**

#

diagnoseT.F

##

subroutine diagnoseT

**
Does a 'After'-'Before' diagnosis of the terms in the temperature equation.
This is
the 1D version. ****dTdt(nterm,ioutpt,n-2)** stores the changes in temperature
at
each level for **ioutpt** time series locations at each of nterm stages in
the calculation
. **inew** = 1 for before, 0 for after. On the hour, after the last term the
change in temperature **dTdt**is outputted.
**iNew** before or after
**iterm** which term in the equation is to be recorded

**nterm** Number of stages in the calculation (fixed at 4)
**icg,jcg** global indices
**i,j,k** local indices
**itimt,ntimt,it** timing

**dTdt**

- 251...251+
**ioutput** a separate file for each time series point

- zero
**dTdt** when first called
- if before subtracted tmp from dTdt at the correct locations
- if after subtracted tmp from dTdt at the correct locations
- output summed changes and reset
**dTdt**

- none

- b3drun
- baroc

- none

- none

**
none
**
##

subroutine diagnoseTD

**
Does a 'After'-'Before' diagnosis of the terms in the temperature equation
using subroutine
before_after_diagnosis. This is the 3D version. ****vab_stor(variable,stage,k,i,j)**
stores the changes in temperature at all points at each of stage in the
calculation.
. **inew** = 1 for before, 0 for after. Everyday, after the last term the
change in temperature **vab_stor**is outputted.
**iNew** before or after
**iterm** which term in the equation is to be recorded

**nterm** Number of stages in the calculation (fixed at 4)
**i,j,k** local indices
**itimt,ntimt** timing
**first**

**vab_stor**

- 59

- zero
**vab_stor** when first called
- calls before_after_diagnosis
- output summed changes and reset
**vab_stor**

- before_after_diagnosis

- b3drun
- baroc

- none

- none

**
Same code is used for similar calculation in ERSEM model; they cannot be used
together.
**

** Next:** diffuse.F
** Up:** The Proudman Oceanographic Laboratory
** Previous:** convectUB.F
The AMMP Project
2005-04-20