/[MITgcm]/MITgcm_contrib/dcarroll/highres_darwin/code/exf_diagnostics_fill.F
ViewVC logotype

Contents of /MITgcm_contrib/dcarroll/highres_darwin/code/exf_diagnostics_fill.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Sun Sep 22 21:23:46 2019 UTC (5 years, 10 months ago) by dcarroll
Branch: MAIN
CVS Tags: HEAD
Initial check in of high resolution Darwin simulation code

1 C $Header: /u/gcmpack/MITgcm_contrib/ecco_darwin/v4_llc270/code_darwin/exf_diagnostics_fill.F,v 1.1 2017/12/01 19:02:11 dimitri Exp $
2 C $Name: $
3
4 #include "EXF_OPTIONS.h"
5
6 SUBROUTINE EXF_DIAGNOSTICS_FILL(
7 I myTime, myIter, myThid )
8
9 C ==================================================================
10 C SUBROUTINE EXF_DIAGNOSTICS_FILL
11 C ==================================================================
12
13 IMPLICIT NONE
14
15 C == global variables ==
16 #include "EEPARAMS.h"
17 #include "SIZE.h"
18 #include "PARAMS.h"
19 #include "GRID.h"
20 #include "EXF_PARAM.h"
21 #include "EXF_FIELDS.h"
22 #include "EXF_CONSTANTS.h"
23
24 C == routine arguments ==
25 _RL myTime
26 INTEGER myIter
27 INTEGER myThid
28
29 C == local variables ==
30
31 #ifdef ALLOW_DIAGNOSTICS
32 IF ( useDiagnostics ) THEN
33
34 CALL DIAGNOSTICS_FILL(ustress, 'EXFtaux ',0,1,0,1,1,myThid)
35 CALL DIAGNOSTICS_FILL(vstress, 'EXFtauy ',0,1,0,1,1,myThid)
36 CALL DIAGNOSTICS_FILL(wspeed, 'EXFwspee',0,1,0,1,1,myThid)
37 CALL DIAGNOSTICS_FILL(sflux, 'EXFempmr',0,1,0,1,1,myThid)
38 CALL DIAGNOSTICS_FILL(hflux, 'EXFqnet ',0,1,0,1,1,myThid)
39 #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)
40 CALL DIAGNOSTICS_FILL(swflux, 'EXFswnet',0,1,0,1,1,myThid)
41 #endif
42 CALL DIAGNOSTICS_FILL(uwind, 'EXFuwind',0,1,0,1,1,myThid)
43 CALL DIAGNOSTICS_FILL(vwind, 'EXFvwind',0,1,0,1,1,myThid)
44 #ifdef ALLOW_ATM_TEMP
45 CALL DIAGNOSTICS_FILL(atemp, 'EXFatemp',0,1,0,1,1,myThid)
46 CALL DIAGNOSTICS_FILL(aqh, 'EXFaqh ',0,1,0,1,1,myThid)
47 CALL DIAGNOSTICS_FILL(hs , 'EXFhs ',0,1,0,1,1,myThid)
48 CALL DIAGNOSTICS_FILL(hl , 'EXFhl ',0,1,0,1,1,myThid)
49 CALL DIAGNOSTICS_FILL(lwflux, 'EXFlwnet',0,1,0,1,1,myThid)
50 CALL DIAGNOSTICS_FILL(evap, 'EXFevap ',0,1,0,1,1,myThid)
51 CALL DIAGNOSTICS_FILL(precip, 'EXFpreci',0,1,0,1,1,myThid)
52 CALL DIAGNOSTICS_FILL(snowprecip, 'EXFsnow ',0,1,0,1,1,myThid)
53 #endif
54 #ifdef ALLOW_DOWNWARD_RADIATION
55 CALL DIAGNOSTICS_FILL(lwdown, 'EXFlwdn ',0,1,0,1,1,myThid)
56 CALL DIAGNOSTICS_FILL(swdown, 'EXFswdn ',0,1,0,1,1,myThid)
57 #endif
58 #ifdef ATMOSPHERIC_LOADING
59 CALL DIAGNOSTICS_FILL(apressure, 'EXFpress',0,1,0,1,1,myThid)
60 #endif
61 #ifdef ALLOW_RUNOFF
62 CALL DIAGNOSTICS_FILL(runoff, 'EXFroff ',0,1,0,1,1,myThid)
63 #endif
64
65 CALL DIAGNOSTICS_FILL(apco2, 'EXFapco2',0,1,0,1,1,myThid)
66
67 #ifdef ALLOW_RUNOFTEMP
68 CALL DIAGNOSTICS_FILL(runoftemp, 'EXFroft ',0,1,0,1,1,myThid)
69 #endif
70 #ifdef ALLOW_SALTFLX
71 CALL DIAGNOSTICS_FILL(saltflx, 'EXFsalfx',0,1,0,1,1,myThid)
72 #endif
73
74 ENDIF
75 #endif /* ALLOW_DIAGNOSTICS */
76
77 RETURN
78 END

  ViewVC Help
Powered by ViewVC 1.1.22