/[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.4 - (hide annotations) (download)
Tue Feb 18 05:33:54 2003 UTC (21 years, 3 months ago) by dimitri
Branch: MAIN
CVS Tags: checkpoint50c_post, checkpoint50c_pre, checkpoint48i_post, checkpoint50, checkpoint50d_post, checkpoint50b_pre, checkpoint48f_post, checkpoint48h_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint50g_post, checkpoint50h_post, checkpoint50e_pre, checkpoint50i_post, checkpoint50e_post, checkpoint50d_pre, checkpoint49, checkpoint48g_post, checkpoint50b_post
Changes since 1.3: +3 -9 lines 
Merging from release1_p12:
o Modifications for using pkg/exf with pkg/seaice
  - improved description of the various forcing configurations
  - added basic radiation bulk formulae to pkg/exf
  - units/sign fix for evap computation in exf_getffields.F
  - updated verification/global_with_exf/results/output.txt
o Added pkg/sbo for computing IERS Special Bureau for the Oceans
  (SBO) core products, including oceanic mass, center-of-mass,
  angular, and bottom pressure (see pkg/sbo/README.sbo).
o Lower bound for viscosity/diffusivity in pkg/kpp/kpp_routines.F
  to avoid negative values in shallow regions.
  - updated verification/natl_box/results/output.txt
  - updated verification/lab_sea/results/output.txt
o MPI gather, scatter: eesupp/src/gather_2d.F and scatter_2d.F
o Added useSingleCpuIO option (see PARAMS.h).
o Updated useSingleCpuIO option in mdsio_writefield.F to
  work with multi-field files, e.g., for single-file pickup.
o pkg/seaice:
  - bug fix in growth.F: QNET for no shortwave case
  - added HeffFile for specifying initial sea-ice thickness
  - changed SEAICE_EXTERNAL_FLUXES wind stress implementation
o Added missing /* */ to CPP comments in pkg/seaice, pkg/exf,
  kpp_transport_t.F, forward_step.F, and the_main_loop.F
o pkg/seaice:
  - adjoint-friendly modifications
  - added a SEAICE_WRITE_PICKUP at end of the_model_main.F
1 dimitri 1.4 c $Header: /u/gcmpack/MITgcm/pkg/exf/exf_getsurfacefluxes.F,v 1.1.4.3 2003/01/12 08:20:10 dimitri 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 - 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     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     end
  ViewVC Help
Powered by ViewVC 1.1.22