/[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.6 - (hide annotations) (download)
Thu Oct 9 04:19:19 2003 UTC (20 years, 7 months ago) by edhill
Branch: MAIN
CVS Tags: checkpoint51k_post, checkpoint51l_post, checkpoint51l_pre, checkpoint51i_post, checkpoint51m_post
Branch point for: tg2-branch
Changes since 1.5: +2 -2 lines 
 o first check-in for the "branch-genmake2" merge
 o verification suite as run on shelley (gcc 3.2.2):

Wed Oct  8 23:42:29 EDT 2003
                T           S           U           V
G D M    c        m  s        m  s        m  s        m  s
E p a R  g  m  m  e  .  m  m  e  .  m  m  e  .  m  m  e  .
N n k u  2  i  a  a  d  i  a  a  d  i  a  a  d  i  a  a  d
2 d e n  d  n  x  n  .  n  x  n  .  n  x  n  .  n  x  n  .

OPTFILE=NONE

Y Y Y Y 13 16 16 16  0 16 16 16 16 16 16 16 16 13 12  0  0 pass  adjustment.128x64x1
Y Y Y Y 16 16 16 16  0 16 16 16 16 16 16  0  0 16 16  0  0 pass  adjustment.cs-32x32x1
Y Y Y Y 16 16 16 16  0 16 16 16 16 16 16 22  0 16 16 22  0 pass  adjust_nlfs.cs-32x32x1
Y Y Y Y -- 13 13 16 16 13 13 13 13 16 16 16 16 16 16 16 16 N/O   advect_cs
Y Y Y Y -- 22 16 16 16 16 16 16 13 16 16 16 16 16 16 16 16 N/O   advect_xy
Y Y Y Y -- 13 16 13 16 16 16 16 16 16 16 22 16 16 16 16 16 N/O   advect_xz
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 pass  aim.5l_cs
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 16 16 16 16 16 13 16 pass  aim.5l_Equatorial_Channel
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 13 16 16 13 13 16 pass  aim.5l_LatLon
Y Y Y Y 13 16 16 16 16 16 16 16 16 16 13 12 13 13 16 13 16 pass  exp0
Y Y Y Y 14 16 16 16 16 16 16 16 22 16 16 16 13 16 16 22 16 pass  exp1
Y Y Y Y 13 13 16 13 16 16 16 16 16 13 13 16 16 13 13 13 13 pass  exp2
Y Y Y Y 16 16 16 16 16 16 16 16 22 16 16 16 16 16 16 16 16 pass  exp4
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 22 16 16 16 22 16 pass  exp5
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 pass  front_relax
Y Y Y Y 14 16 16 13 13 16 16 13 13 16 13 13 16 12 13 13 16 pass  global_ocean.90x40x15
Y Y Y Y 10 16 16 13 13 16 13 16 16 13 13 13 13 16 16 13 16 FAIL  global_ocean.cs32x15
Y Y Y Y  6 11 12 13 13 12 13 16 13  9  9  9  9 10  9  9 11 FAIL  global_ocean_pressure
Y Y Y Y 14 16 16 13 16 16 16 13 13 13 13 13 16 12 16 13 16 pass  global_with_exf
Y Y Y Y 14 16 16 16 16 16 16 16 16 11 13 22 13 16 16  9 16 pass  hs94.128x64x5
Y Y Y Y 13 16 16 16 16 16 16 16 16 11 16 16 16 13 16 22 13 pass  hs94.1x64x5
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 16 13 13 16 16 22 13 pass  hs94.cs-32x32x5
Y Y Y Y 10 10 16 13 13 16 16 16 22 16 13 13 13 13 13 22 13 FAIL  ideal_2D_oce
Y Y Y Y  8 16 16 16 16 16 16 16 16 13 13  8 16 16 16 16 16 FAIL  internal_wave
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 13 22 13 13 13 22 16 pass  inverted_barometer
Y Y Y Y 12 16 16 16 16 16 16 16 16 16 13 12 13 13 13 13 13 FAIL  lab_sea
Y Y Y Y 11 16 16 16 16 16 16 16 13 13 13 12 13 16 13 12 13 FAIL  natl_box
Y Y Y Y 16 16 16 16 16 16 16 16 22 16 16 16 16 16 16 16 16 pass  plume_on_slope
Y Y Y Y 13 16 16 16 16 13 16 16 16 16 16 16 16 13 16 16 16 pass  solid-body.cs-32x32x1
1 edhill 1.6 c $Header: /u/u3/gcmpack/MITgcm/pkg/exf/exf_getsurfacefluxes.F,v 1.5.2.1 2003/10/02 18:30:07 adcroft Exp $
2 heimbach 1.1
3 edhill 1.6 #include "EXF_OPTIONS.h"
4 heimbach 1.1
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 heimbach 1.5 c == global variables ==
36     #include "EEPARAMS.h"
37     #include "SIZE.h"
38     #include "PARAMS.h"
39     #include "GRID.h"
40    
41     #include "exf_fields.h"
42     #if (defined (ALLOW_ADJOINT_RUN) || \
43     defined (ALLOW_TANGENTLINEAR_RUN) || \
44     defined (ALLOW_ECCO_OPTIMIZATION))
45     # include "ctrl.h"
46     # include "ctrl_dummy.h"
47     #endif
48    
49 heimbach 1.1 c == routine arguments ==
50    
51     _RL mytime
52     integer myiter
53     integer mythid
54    
55     c == global variables ==
56    
57     c == end of interface ==
58    
59     #ifdef ALLOW_HFLUX_CONTROL
60 heimbach 1.5 call ctrl_get_gen (
61     & xx_hflux_file, xx_hfluxstartdate, xx_hfluxperiod,
62     & maskc, hflux, xx_hflux0, xx_hflux1, xx_hflux_dummy,
63     & mytime, myiter, mythid )
64 heimbach 1.1 #endif
65    
66     #ifdef ALLOW_SFLUX_CONTROL
67 heimbach 1.5 call ctrl_get_gen (
68     & xx_sflux_file, xx_sfluxstartdate, xx_sfluxperiod,
69     & maskc, sflux, xx_sflux0, xx_sflux1, xx_sflux_dummy,
70     & mytime, myiter, mythid )
71 heimbach 1.1 #endif
72    
73     #ifdef ALLOW_USTRESS_CONTROL
74 heimbach 1.5 call ctrl_get_gen (
75     & xx_tauu_file, xx_tauustartdate, xx_tauuperiod,
76     & maskw, ustress, xx_tauu0, xx_tauu1, xx_tauu_dummy,
77     & mytime, myiter, mythid )
78 heimbach 1.1 #endif
79    
80     #ifdef ALLOW_VSTRESS_CONTROL
81 heimbach 1.5 call ctrl_get_gen (
82     & xx_tauv_file, xx_tauvstartdate, xx_tauvperiod,
83     & masks, vstress, xx_tauv0, xx_tauv1, xx_tauv_dummy,
84     & mytime, myiter, mythid )
85 heimbach 1.1 #endif
86    
87     #ifdef ALLOW_SWFLUX_CONTROL
88 heimbach 1.5 call ctrl_get_gen (
89     NOT YET IMPLEMENTED
90     & mytime, myiter, mythid )
91 heimbach 1.1 #endif
92    
93     #ifdef ALLOW_LWFLUX_CONTROL
94 heimbach 1.5 call ctrl_get_gen (
95     NOT YET IMPLEMENTED
96     & mytime, myiter, mythid )
97 heimbach 1.1 #endif
98    
99     end
  ViewVC Help
Powered by ViewVC 1.1.22