18 |
c started: Christian Eckert eckert@mit.edu 30-Jun-1999 |
c started: Christian Eckert eckert@mit.edu 30-Jun-1999 |
19 |
c |
c |
20 |
c changed: Christian Eckert eckert@mit.edu 14-Jan-2000 |
c changed: Christian Eckert eckert@mit.edu 14-Jan-2000 |
|
c |
|
21 |
c - Restructured the code in order to create a package |
c - Restructured the code in order to create a package |
22 |
c for the MITgcmUV. |
c for the MITgcmUV. |
23 |
c |
c |
24 |
c Christian Eckert eckert@mit.edu 12-Feb-2000 |
c Christian Eckert eckert@mit.edu 12-Feb-2000 |
|
c |
|
25 |
c - Changed Routine names (package prefix: exf_) |
c - Changed Routine names (package prefix: exf_) |
26 |
c |
c |
27 |
|
c mods for pkg/seaice: menemenlis@jpl.nasa.gov 20-Dec-2002 |
28 |
|
c |
29 |
c ================================================================== |
c ================================================================== |
30 |
c SUBROUTINE exf_GetSurfaceFluxes |
c SUBROUTINE exf_GetSurfaceFluxes |
31 |
c ================================================================== |
c ================================================================== |
66 |
call ctrl_getlwflux ( mytime, myiter, mythid ) |
call ctrl_getlwflux ( mytime, myiter, mythid ) |
67 |
#endif |
#endif |
68 |
|
|
|
#ifdef ALLOW_CONTROL_NEW |
|
|
c Get the surface forcing control fields. |
|
|
call exfa_GetFFields( mytime, myiter, mythid ) |
|
|
#endif |
|
|
|
|
69 |
end |
end |
|
|
|