1 |
dimitri |
1.4 |
c $Header: /u/gcmpack/MITgcm/pkg/exf/exf_getsurfacefluxes.F,v 1.1.4.3 2003/01/12 08:20:10 dimitri Exp $ |
2 |
heimbach |
1.1 |
|
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 - Restructured the code in order to create a package |
22 |
|
|
c for the MITgcmUV. |
23 |
|
|
c |
24 |
|
|
c Christian Eckert eckert@mit.edu 12-Feb-2000 |
25 |
dimitri |
1.4 |
c - Changed Routine names (package prefix: exf_) |
26 |
heimbach |
1.1 |
c |
27 |
dimitri |
1.4 |
c mods for pkg/seaice: menemenlis@jpl.nasa.gov 20-Dec-2002 |
28 |
heimbach |
1.1 |
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 |
|
|
#ifdef ALLOW_HFLUX_CONTROL |
46 |
|
|
call ctrl_getheatflux ( mytime, myiter, mythid ) |
47 |
|
|
#endif |
48 |
|
|
|
49 |
|
|
#ifdef ALLOW_SFLUX_CONTROL |
50 |
|
|
call ctrl_getsaltflux ( mytime, myiter, mythid ) |
51 |
|
|
#endif |
52 |
|
|
|
53 |
|
|
#ifdef ALLOW_USTRESS_CONTROL |
54 |
|
|
call ctrl_getzonstress ( mytime, myiter, mythid ) |
55 |
|
|
#endif |
56 |
|
|
|
57 |
|
|
#ifdef ALLOW_VSTRESS_CONTROL |
58 |
|
|
call ctrl_getmerstress ( mytime, myiter, mythid ) |
59 |
|
|
#endif |
60 |
|
|
|
61 |
|
|
#ifdef ALLOW_SWFLUX_CONTROL |
62 |
|
|
call ctrl_getswflux ( mytime, myiter, mythid ) |
63 |
|
|
#endif |
64 |
|
|
|
65 |
|
|
#ifdef ALLOW_LWFLUX_CONTROL |
66 |
|
|
call ctrl_getlwflux ( mytime, myiter, mythid ) |
67 |
|
|
#endif |
68 |
|
|
|
69 |
|
|
end |