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 |
|