1 |
c $Header: /u/gcmpack/MITgcm/pkg/exf/exf_diagnostics_fill.F,v 1.1 2005/06/28 22:05:49 heimbach Exp $ |
2 |
|
3 |
#include "EXF_OPTIONS.h" |
4 |
|
5 |
subroutine exf_diagnostics_fill( |
6 |
& mycurrenttime, mycurrentiter, mythid ) |
7 |
|
8 |
c ================================================================== |
9 |
c SUBROUTINE exf_diagnostics_fill |
10 |
c ================================================================== |
11 |
c |
12 |
implicit none |
13 |
|
14 |
c == global variables == |
15 |
|
16 |
#include "EEPARAMS.h" |
17 |
#include "SIZE.h" |
18 |
#include "PARAMS.h" |
19 |
#include "DYNVARS.h" |
20 |
#include "GRID.h" |
21 |
|
22 |
#include "exf_param.h" |
23 |
#include "exf_fields.h" |
24 |
#include "exf_constants.h" |
25 |
|
26 |
c == routine arguments == |
27 |
|
28 |
integer mythid |
29 |
integer mycurrentiter |
30 |
_RL mycurrenttime |
31 |
|
32 |
c == local variables == |
33 |
|
34 |
#ifdef ALLOW_DIAGNOSTICS |
35 |
IF ( useDiagnostics ) THEN |
36 |
c |
37 |
CALL DIAGNOSTICS_FILL(ustress,'EXFtaux ',0,1,0,1,1,myThid) |
38 |
CALL DIAGNOSTICS_FILL(vstress,'EXFtauy ',0,1,0,1,1,myThid) |
39 |
CALL DIAGNOSTICS_FILL(sflux, 'EXFempmr',0,1,0,1,1,myThid) |
40 |
CALL DIAGNOSTICS_FILL(hflux, 'EXFqnet ',0,1,0,1,1,myThid) |
41 |
#ifdef SHORTWAVE_HEATING |
42 |
CALL DIAGNOSTICS_FILL(swflux, 'EXFswnet',0,1,0,1,1,myThid) |
43 |
#endif |
44 |
#ifdef ALLOW_ATM_WIND |
45 |
CALL DIAGNOSTICS_FILL(uwind, 'EXFuwind',0,1,0,1,1,myThid) |
46 |
CALL DIAGNOSTICS_FILL(vwind, 'EXFvwind',0,1,0,1,1,myThid) |
47 |
#endif |
48 |
#ifdef ALLOW_ATM_TEMP |
49 |
CALL DIAGNOSTICS_FILL(atemp, 'EXFatemp',0,1,0,1,1,myThid) |
50 |
CALL DIAGNOSTICS_FILL(aqh, 'EXFaqh ',0,1,0,1,1,myThid) |
51 |
CALL DIAGNOSTICS_FILL(hs , 'EXFhs ',0,1,0,1,1,myThid) |
52 |
CALL DIAGNOSTICS_FILL(hl , 'EXFhl ',0,1,0,1,1,myThid) |
53 |
CALL DIAGNOSTICS_FILL(lwflux, 'EXFlwnet',0,1,0,1,1,myThid) |
54 |
CALL DIAGNOSTICS_FILL(precip, 'EXFpreci',0,1,0,1,1,myThid) |
55 |
#endif |
56 |
#if (defined (ALLOW_ATM_TEMP) || defined (EXF_READ_EVAP)) |
57 |
CALL DIAGNOSTICS_FILL(evap, 'EXFevap ',0,1,0,1,1,myThid) |
58 |
#endif |
59 |
#ifdef ALLOW_DOWNWARD_RADIATION |
60 |
CALL DIAGNOSTICS_FILL(lwdown, 'EXFlwdn ',0,1,0,1,1,myThid) |
61 |
CALL DIAGNOSTICS_FILL(swdown, 'EXFswdn ',0,1,0,1,1,myThid) |
62 |
#endif |
63 |
#ifdef ATMOSPHERIC_LOADING |
64 |
CALL DIAGNOSTICS_FILL(apressure,'EXFpress',0,1,0,1,1,myThid) |
65 |
#endif |
66 |
c |
67 |
ENDIF |
68 |
#endif /* ALLOW_DIAGNOSTICS */ |
69 |
|
70 |
end |