/[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.3 - (show annotations) (download)
Tue Nov 12 20:34:41 2002 UTC (21 years, 6 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint47e_post, checkpoint47c_post, checkpoint48e_post, checkpoint48b_post, checkpoint48c_pre, checkpoint47d_pre, checkpoint47a_post, checkpoint48d_pre, checkpoint47i_post, checkpoint47d_post, checkpoint48d_post, checkpoint47g_post, checkpoint48a_post, checkpoint47j_post, branch-exfmods-tag, checkpoint48c_post, checkpoint47b_post, checkpoint47f_post, checkpoint47, checkpoint48, checkpoint47h_post
Branch point for: branch-exfmods-curt
Changes since 1.2: +1 -1 lines 
Merging from release1_p8:
o exf:
  updated external forcing package
  - bug fixes carried over from ecco-branch
    (missing OBCS_OPTIONS.h in two routines)
  - enable easy to use "no forcing".
  - added exf I/O for atmospheric loading
  - added exf I/O for runoff data
  - transfered scaling between exf <-> MITgcm to exf namelist
  - removing old exfa stuff
1 c $Header: /u/gcmpack/MITgcm/pkg/exf/exf_getsurfacefluxes.F,v 1.1.4.2 2002/11/07 17:07:56 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