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

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

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

Revision 1.2 - (hide 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 heimbach 1.2 c $Header: /u/gcmpack/MITgcm/pkg/exf/exf_getsurfacefluxes.F,v 1.1.6.1 2002/02/06 23:18:53 heimbach 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
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