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

Contents of /MITgcm/pkg/exf/exf_clim_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, 4 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint46b_post, checkpoint46k_post, checkpoint46c_pre, checkpoint45d_post, checkpoint44h_pre, checkpoint46j_post, checkpoint44f_pre, checkpoint45a_post, checkpoint46f_post, checkpoint46a_post, checkpoint46d_pre, checkpoint46e_post, checkpoint45b_post, checkpoint44g_post, checkpoint46h_pre, checkpoint45c_post, checkpoint44h_post, chkpt44c_post, checkpoint44e_post, checkpoint46e_pre, checkpoint46l_pre, checkpoint46j_pre, checkpoint46b_pre, checkpoint46l_post, release1_final_v1, checkpoint46, checkpoint44f_post, checkpoint44b_post, chkpt44d_post, checkpoint46m_post, checkpoint46g_pre, checkpoint46a_pre, checkpoint44e_pre, chkpt44c_pre, checkpoint46d_post, checkpoint46g_post, checkpoint46i_post, checkpoint46c_post, checkpoint45, checkpoint46h_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_clim_init.F,v 1.1.6.1 2002/02/06 23:18:53 heimbach Exp $
2
3 #include "EXF_CPPOPTIONS.h"
4
5
6 subroutine exf_clim_init(
7 I mythid
8 & )
9
10 c ==================================================================
11 c SUBROUTINE exf_clim_init
12 c ==================================================================
13 c
14 c o This routine initialises the climatologic forcing
15 c
16 c started: Ralf.Giering@FastOpt.de 25-Mai-20000
17 c
18 c ==================================================================
19 c SUBROUTINE exf_clim_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 #include "exf_clim_param.h"
32
33 c == routine arguments ==
34
35 integer mythid
36
37 c == local variables ==
38
39 c == end of interface ==
40
41 c initialize climatology fields
42 call exf_init_climtemp( mythid )
43 call exf_init_climsalt( mythid )
44 call exf_init_climsst( mythid )
45 call exf_init_climsss( mythid )
46
47 end
  ViewVC Help
Powered by ViewVC 1.1.22