/[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.5 - (show annotations) (download)
Tue Feb 18 05:33:54 2003 UTC (21 years, 4 months ago) by dimitri
Branch: MAIN
CVS Tags: checkpoint48i_post, checkpoint48f_post, checkpoint48h_post, checkpoint48g_post
Changes since 1.4: +36 -48 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 c $Header: /u/gcmpack/MITgcm/pkg/exf/exf_init.F,v 1.1.4.4 2003/01/12 08:20:10 dimitri 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 mods for pkg/seaice: menemenlis@jpl.nasa.gov 20-Dec-2002
18 c
19 c ==================================================================
20 c SUBROUTINE exf_init
21 c ==================================================================
22
23 implicit none
24
25 c == global variables ==
26
27 #include "EEPARAMS.h"
28 #include "SIZE.h"
29 #include "cal.h"
30 #include "exf.h"
31
32 c == routine arguments ==
33
34 integer mythid
35
36 c == local variables ==
37
38 c == end of interface ==
39
40 call exf_init_ustress ( mythid )
41 call exf_init_vstress ( mythid )
42
43 #ifdef ALLOW_ATM_WIND
44 call exf_init_uwind ( mythid )
45 call exf_init_vwind ( mythid )
46 #endif
47
48 call exf_init_hflux ( mythid )
49 call exf_init_sflux ( mythid )
50
51 #ifdef ALLOW_ATM_TEMP
52 call exf_init_atemp ( mythid )
53 call exf_init_aqh ( mythid )
54 call exf_init_lwflux ( mythid )
55 call exf_init_precip ( mythid )
56 #endif
57
58 #if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)
59 call exf_init_swflux ( mythid )
60 #endif
61
62 #ifdef EXF_READ_EVAP
63 call exf_init_evap ( mythid )
64 #endif
65
66 #if (defined (ALLOW_RUNOFF) || defined (ALLOW_SEAICE))
67 call exf_init_runoff ( mythid )
68 #endif
69
70 #ifdef ALLOW_DOWNWARD_RADIATION
71 call exf_init_swdown ( mythid )
72 call exf_init_lwdown ( mythid )
73 #endif
74
75 #ifdef ATMOSPHERIC_LOADING
76 call exf_init_apressure( mythid )
77 #endif
78
79 c Initialize climatological fields
80 call exf_clim_init ( mythid )
81
82 end
  ViewVC Help
Powered by ViewVC 1.1.22