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

Contents of /MITgcm/pkg/exf/exf_init.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 -3 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_init.F,v 1.1.6.1 2002/02/06 23:18:54 heimbach Exp $
2
3 #include "EXF_CPPOPTIONS.h"
4
5
6 subroutine exf_init(
7 I mythid
8 & )
9
10 c ==================================================================
11 c SUBROUTINE exf_init
12 c ==================================================================
13 c
14 c o This routine initialises the forcing
15 c
16 c started: Ralf.Giering@FastOpt.de 25-Mai-20000
17 c
18 c ==================================================================
19 c SUBROUTINE exf_init
20 c ==================================================================
21
22 implicit none
23
24 c == global variables ==
25
26 #include "EEPARAMS.h"
27 #include "SIZE.h"
28 #include "cal.h"
29 #include "exf.h"
30
31 c == routine arguments ==
32
33 integer mythid
34
35 c == local variables ==
36
37 c == end of interface ==
38
39 call exf_init_hflux ( mythid )
40 call exf_init_sflux ( mythid )
41
42 call exf_init_ustress( mythid )
43 call exf_init_vstress( mythid )
44
45 #ifdef ALLOW_BULKFORMULAE
46 c Use bulk formulae estimates of the surface fluxes.
47
48 #ifdef ALLOW_ATM_TEMP
49
50 c Use the atmospheric temperature and specific humidity for flux
51 c estimates.
52 call exf_init_atemp ( mythid )
53 call exf_init_aqh ( mythid )
54 call exf_init_lwflux( mythid )
55 call exf_init_swflux( mythid )
56 call exf_init_precip( mythid )
57
58 #else /* ALLOW_ATM_TEMP undefined */
59
60 #ifdef ALLOW_KPP
61 call exf_init_swflux( mythid )
62 #endif /* ALLOW_KPP */
63
64 #endif /* ALLOW_ATM_TEMP */
65
66 #ifdef ALLOW_ATM_WIND
67
68 c Use atmospheric wind fields
69 call exf_init_uwind( mythid )
70 call exf_init_vwind( mythid )
71
72 #endif /* ALLOW_ATM_WIND */
73
74 #else /* ALLOW_BULKFORMULAE undefined */
75
76 #ifdef ALLOW_KPP
77 call exf_init_swflux( mythid )
78 #endif /* ALLOW_KPP */
79
80 #endif /* ALLOW_BULKFORMULAE */
81
82 c Check for climatological contributions
83 call exf_clim_init( mythid )
84
85 end
  ViewVC Help
Powered by ViewVC 1.1.22