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

Annotation of /MITgcm/pkg/exf/exf_clim_init.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.5 - (hide annotations) (download)
Mon Aug 4 22:53:41 2003 UTC (20 years, 11 months ago) by dimitri
Branch: MAIN
CVS Tags: checkpoint51j_post, checkpoint51f_pre, branchpoint-genmake2, checkpoint51h_pre, checkpoint51g_post, checkpoint51f_post, checkpoint51i_pre
Branch point for: branch-genmake2
Changes since 1.4: +2 -2 lines 
checkpoint51f_post
o Added on-the-fly spatial interpolation capability
    "USE_EXF_INTERPOLATION" to pkg/exf.
    This is a temporary Cartesian-grid hack until
    the super-duper ESMF coupler becomes available.
    Usage example is in verification/global_with_exf.
o Bug fix to pkg/ptracers, pkg/generic_advdiff/gad_calc_rhs.F,
    and pkg/kpp/kpp_transport_ptr.F for dealing with tracer
    non-local transport term.
1 dimitri 1.5 c $Header: /u/gcmpack/MITgcm/pkg/exf/exf_clim_init.F,v 1.4 2003/03/06 00:47:33 heimbach Exp $
2 heimbach 1.1
3     #include "EXF_CPPOPTIONS.h"
4    
5    
6 heimbach 1.4 subroutine exf_clim_init( mythid )
7 heimbach 1.1
8     c ==================================================================
9     c SUBROUTINE exf_clim_init
10     c ==================================================================
11     c
12     c o This routine initialises the climatologic forcing
13     c
14     c started: Ralf.Giering@FastOpt.de 25-Mai-20000
15     c
16     c ==================================================================
17     c SUBROUTINE exf_clim_init
18     c ==================================================================
19    
20     implicit none
21    
22     c == global variables ==
23    
24     #include "EEPARAMS.h"
25     #include "SIZE.h"
26     #include "cal.h"
27     #include "exf.h"
28 dimitri 1.5 #include "exf_param.h"
29 heimbach 1.1 #include "exf_clim_param.h"
30    
31     c == routine arguments ==
32    
33     integer mythid
34    
35     c == local variables ==
36    
37     c == end of interface ==
38    
39     c initialize climatology fields
40 heimbach 1.4 #ifdef ALLOW_CLIMTEMP_RELAXATION
41 heimbach 1.1 call exf_init_climtemp( mythid )
42 heimbach 1.4 #endif
43     #ifdef ALLOW_CLIMSALT_RELAXATION
44 heimbach 1.1 call exf_init_climsalt( mythid )
45 heimbach 1.4 #endif
46     #ifdef ALLOW_CLIMSST_RELAXATION
47 heimbach 1.1 call exf_init_climsst( mythid )
48 heimbach 1.4 #endif
49     #ifdef ALLOW_CLIMSSS_RELAXATION
50 heimbach 1.1 call exf_init_climsss( mythid )
51 heimbach 1.4 #endif
52 heimbach 1.1
53     end
  ViewVC Help
Powered by ViewVC 1.1.22