/[MITgcm]/MITgcm/pkg/exf/exf_getsurfacefluxes.F
ViewVC logotype

Contents of /MITgcm/pkg/exf/exf_getsurfacefluxes.F

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

Revision 1.2 - (show annotations) (download)
Thu Feb 7 20:00:09 2002 UTC (22 years, 3 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint44e_post, checkpoint46l_post, checkpoint46g_pre, checkpoint46f_post, checkpoint44f_post, checkpoint46b_post, checkpoint46l_pre, chkpt44d_post, checkpoint44e_pre, checkpoint46d_pre, checkpoint45d_post, checkpoint46j_pre, checkpoint44h_pre, checkpoint46a_post, checkpoint46j_post, checkpoint46k_post, chkpt44c_pre, checkpoint45a_post, checkpoint44g_post, checkpoint46e_pre, checkpoint45b_post, checkpoint46b_pre, release1_final_v1, checkpoint46c_pre, checkpoint46, checkpoint44b_post, checkpoint46h_pre, checkpoint46m_post, checkpoint46a_pre, checkpoint45c_post, checkpoint44h_post, checkpoint46g_post, checkpoint46i_post, checkpoint46c_post, checkpoint46e_post, checkpoint45, checkpoint46h_post, chkpt44c_post, checkpoint44f_pre, checkpoint46d_post
Branch point for: release1_final
Changes since 1.1: +1 -4 lines 
o merge of relevant stuff from the ecco-branch:
  - genmake: removed $S64 overwrite for case SunOS
  - pkg/exf: update and corrections for field swapping and obcs
  - pkg/ecco: parameter lists for the_model_main, the_main_loop
              harmonized between ECCO and MITgcm
  - pkg/autodiff: added flow directives for obcs, mdsio_gl_slice
                  updated checkpointing_lev... lists for obcs
  - model/src: minor changes in forward_step, plot_field
               added directive for divided adjoint in the_main_loop
  - pkg/mdsio: added mdsio_gl_slice
1 c $Header: /u/gcmpack/MITgcm/pkg/exf/exf_getsurfacefluxes.F,v 1.1.6.1 2002/02/06 23:18:53 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 #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 #ifdef ALLOW_CONTROL_NEW
70 c Get the surface forcing control fields.
71 call exfa_GetFFields( mytime, myiter, mythid )
72 #endif
73
74 end
75
  ViewVC Help
Powered by ViewVC 1.1.22