Parent Directory | Revision Log | Revision Graph
o first check-in for the "branch-genmake2" merge o verification suite as run on shelley (gcc 3.2.2): Wed Oct 8 23:42:29 EDT 2003 T S U V G D M c m s m s m s m s E p a R g m m e . m m e . m m e . m m e . N n k u 2 i a a d i a a d i a a d i a a d 2 d e n d n x n . n x n . n x n . n x n . OPTFILE=NONE Y Y Y Y 13 16 16 16 0 16 16 16 16 16 16 16 16 13 12 0 0 pass adjustment.128x64x1 Y Y Y Y 16 16 16 16 0 16 16 16 16 16 16 0 0 16 16 0 0 pass adjustment.cs-32x32x1 Y Y Y Y 16 16 16 16 0 16 16 16 16 16 16 22 0 16 16 22 0 pass adjust_nlfs.cs-32x32x1 Y Y Y Y -- 13 13 16 16 13 13 13 13 16 16 16 16 16 16 16 16 N/O advect_cs Y Y Y Y -- 22 16 16 16 16 16 16 13 16 16 16 16 16 16 16 16 N/O advect_xy Y Y Y Y -- 13 16 13 16 16 16 16 16 16 16 22 16 16 16 16 16 N/O advect_xz Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 pass aim.5l_cs Y Y Y Y 14 16 16 16 16 16 16 16 16 13 16 16 16 16 16 13 16 pass aim.5l_Equatorial_Channel Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 13 16 16 13 13 16 pass aim.5l_LatLon Y Y Y Y 13 16 16 16 16 16 16 16 16 16 13 12 13 13 16 13 16 pass exp0 Y Y Y Y 14 16 16 16 16 16 16 16 22 16 16 16 13 16 16 22 16 pass exp1 Y Y Y Y 13 13 16 13 16 16 16 16 16 13 13 16 16 13 13 13 13 pass exp2 Y Y Y Y 16 16 16 16 16 16 16 16 22 16 16 16 16 16 16 16 16 pass exp4 Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 22 16 16 16 22 16 pass exp5 Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 pass front_relax Y Y Y Y 14 16 16 13 13 16 16 13 13 16 13 13 16 12 13 13 16 pass global_ocean.90x40x15 Y Y Y Y 10 16 16 13 13 16 13 16 16 13 13 13 13 16 16 13 16 FAIL global_ocean.cs32x15 Y Y Y Y 6 11 12 13 13 12 13 16 13 9 9 9 9 10 9 9 11 FAIL global_ocean_pressure Y Y Y Y 14 16 16 13 16 16 16 13 13 13 13 13 16 12 16 13 16 pass global_with_exf Y Y Y Y 14 16 16 16 16 16 16 16 16 11 13 22 13 16 16 9 16 pass hs94.128x64x5 Y Y Y Y 13 16 16 16 16 16 16 16 16 11 16 16 16 13 16 22 13 pass hs94.1x64x5 Y Y Y Y 14 16 16 16 16 16 16 16 16 13 16 13 13 16 16 22 13 pass hs94.cs-32x32x5 Y Y Y Y 10 10 16 13 13 16 16 16 22 16 13 13 13 13 13 22 13 FAIL ideal_2D_oce Y Y Y Y 8 16 16 16 16 16 16 16 16 13 13 8 16 16 16 16 16 FAIL internal_wave Y Y Y Y 14 16 16 16 16 16 16 16 16 13 13 22 13 13 13 22 16 pass inverted_barometer Y Y Y Y 12 16 16 16 16 16 16 16 16 16 13 12 13 13 13 13 13 FAIL lab_sea Y Y Y Y 11 16 16 16 16 16 16 16 13 13 13 12 13 16 13 12 13 FAIL natl_box Y Y Y Y 16 16 16 16 16 16 16 16 22 16 16 16 16 16 16 16 16 pass plume_on_slope Y Y Y Y 13 16 16 16 16 13 16 16 16 16 16 16 16 13 16 16 16 pass solid-body.cs-32x32x1
1 | c $Header: /u/u3/gcmpack/MITgcm/pkg/exf/exf_clim_init.F,v 1.5.2.1 2003/10/02 18:30:07 adcroft Exp $ |
2 | |
3 | #include "EXF_OPTIONS.h" |
4 | |
5 | |
6 | subroutine exf_clim_init( mythid ) |
7 | |
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 | #include "exf_param.h" |
29 | #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 | #ifdef ALLOW_CLIMTEMP_RELAXATION |
41 | call exf_init_climtemp( mythid ) |
42 | #endif |
43 | #ifdef ALLOW_CLIMSALT_RELAXATION |
44 | call exf_init_climsalt( mythid ) |
45 | #endif |
46 | #ifdef ALLOW_CLIMSST_RELAXATION |
47 | call exf_init_climsst( mythid ) |
48 | #endif |
49 | #ifdef ALLOW_CLIMSSS_RELAXATION |
50 | call exf_init_climsss( mythid ) |
51 | #endif |
52 | |
53 | end |
ViewVC Help | |
Powered by ViewVC 1.1.22 |