1 |
heimbach |
1.1 |
c $Header: /u/gcmpack/development/heimbach/ecco_env/pkg/exf/exf_getsurfacefluxes.F,v 1.4 2001/02/02 19:43:46 heimbach Exp $ |
2 |
|
|
|
3 |
|
|
#include "EXF_CPPOPTIONS.h" |
4 |
|
|
|
5 |
|
|
subroutine exf_GetSurfaceFluxes( |
6 |
|
|
I mytime, |
7 |
|
|
I myiter, |
8 |
|
|
I mythid |
9 |
|
|
& ) |
10 |
|
|
|
11 |
|
|
c ================================================================== |
12 |
|
|
c SUBROUTINE exf_GetSurfaceFluxes |
13 |
|
|
c ================================================================== |
14 |
|
|
c |
15 |
|
|
c o Mid-level routine for enabling the use of flux fields as control |
16 |
|
|
c variables. |
17 |
|
|
c |
18 |
|
|
c started: Christian Eckert eckert@mit.edu 30-Jun-1999 |
19 |
|
|
c |
20 |
|
|
c changed: Christian Eckert eckert@mit.edu 14-Jan-2000 |
21 |
|
|
c |
22 |
|
|
c - Restructured the code in order to create a package |
23 |
|
|
c for the MITgcmUV. |
24 |
|
|
c |
25 |
|
|
c Christian Eckert eckert@mit.edu 12-Feb-2000 |
26 |
|
|
c |
27 |
|
|
c - Changed Routine names (package prefix: exf_) |
28 |
|
|
c |
29 |
|
|
c ================================================================== |
30 |
|
|
c SUBROUTINE exf_GetSurfaceFluxes |
31 |
|
|
c ================================================================== |
32 |
|
|
|
33 |
|
|
implicit none |
34 |
|
|
|
35 |
|
|
c == routine arguments == |
36 |
|
|
|
37 |
|
|
_RL mytime |
38 |
|
|
integer myiter |
39 |
|
|
integer mythid |
40 |
|
|
|
41 |
|
|
c == global variables == |
42 |
|
|
|
43 |
|
|
c == end of interface == |
44 |
|
|
|
45 |
|
|
c Get the surface forcing fields. |
46 |
|
|
call exf_GetFFields( mytime, myiter, mythid ) |
47 |
|
|
|
48 |
|
|
#ifdef ALLOW_HFLUX_CONTROL |
49 |
|
|
call ctrl_getheatflux ( mytime, myiter, mythid ) |
50 |
|
|
#endif |
51 |
|
|
|
52 |
|
|
#ifdef ALLOW_SFLUX_CONTROL |
53 |
|
|
call ctrl_getsaltflux ( mytime, myiter, mythid ) |
54 |
|
|
#endif |
55 |
|
|
|
56 |
|
|
#ifdef ALLOW_USTRESS_CONTROL |
57 |
|
|
call ctrl_getzonstress ( mytime, myiter, mythid ) |
58 |
|
|
#endif |
59 |
|
|
|
60 |
|
|
#ifdef ALLOW_VSTRESS_CONTROL |
61 |
|
|
call ctrl_getmerstress ( mytime, myiter, mythid ) |
62 |
|
|
#endif |
63 |
|
|
|
64 |
|
|
#ifdef ALLOW_SWFLUX_CONTROL |
65 |
|
|
call ctrl_getswflux ( mytime, myiter, mythid ) |
66 |
|
|
#endif |
67 |
|
|
|
68 |
|
|
#ifdef ALLOW_LWFLUX_CONTROL |
69 |
|
|
call ctrl_getlwflux ( mytime, myiter, mythid ) |
70 |
|
|
#endif |
71 |
|
|
|
72 |
|
|
#ifdef ALLOW_CONTROL_NEW |
73 |
|
|
c Get the surface forcing control fields. |
74 |
|
|
call exfa_GetFFields( mytime, myiter, mythid ) |
75 |
|
|
#endif |
76 |
|
|
|
77 |
|
|
end |
78 |
|
|
|