Log of /trunk/Compilation/src_gcm_only
Parent Directory
| Revision Log
Revision
93 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Apr 1 15:50:48 2014 UTC
(10 years, 3 months ago)
by
guez
Original Path:
trunk/src_gcm_only
File length: 2953 byte(s)
Diff to
previous 90
,
to
selected 82
Moved variable calendar_used, un_an and mon_len from module calendar
to module ioconf_calendar_m. Removed unused variables cal, start_day,
start_sec of module calendar.
Inlined procedure ju2ymds_internal into procedure ju2ymds. Inlined
procedure ymds2ju_internal into procedure ymds2ju.
Removed generic interface ioget_calendar. Merged ioget_calendar_real1
and ioget_calendar_real2 into ioget_calendar_real.
Revision
90 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Mar 12 21:16:36 2014 UTC
(10 years, 4 months ago)
by
guez
Original Path:
trunk/src_gcm_only
File length: 2930 byte(s)
Diff to
previous 89
,
to
selected 82
Removed procedures ini_histday, ini_histhf, write_histday and
write_histhf.
Divided file regr_pr_coefoz.f into regr_pr_av.f and
regr_pr_int.f. (Following LMDZ.) Divided module regr_pr_coefoz into
modules regr_pr_av_m and regr_pr_int_m. Renamed regr_pr_av_coefoz to
regr_pr_av and regr_pr_int_coefoz to regr_pr_int. The idea is that
those procedures are more general than Mobidic.
Removed argument dudyn of calfis and physiq. dudyn is not used either
in LMDZ. Removed computation in calfis of unused variable zpsrf (not
used either in LMDZ). Removed useless computation of dqfi in calfis
(part 62): the results were overwritten. (Same in LMDZ.)
Revision
89 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Mar 11 16:03:19 2014 UTC
(10 years, 4 months ago)
by
guez
Original Path:
trunk/src_gcm_only
File length: 2962 byte(s)
Diff to
previous 83
,
to
selected 82
Removed call to pvtheta in calfis because the result pvteta is not
used (not used either in LMDZ).
Removed unused argument dv of calfis. (Corresponding argument in LMDZ
is pdvcov and computations from pdvcov are made in calfis but not
used.)
Removed procedures that were not called.
Revision
83 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Mar 6 15:12:00 2014 UTC
(10 years, 4 months ago)
by
guez
Original Path:
trunk/src_gcm_only
File length: 3048 byte(s)
Diff to
previous 82
In procedure conf_guide, replaced calls to getpar by reading a
namelist. Removed file getparam.f, now unused. So getin of IOIPSL is
now unused too. Removed files getincom.f, getincom2.f, cmpblank.f,
find_sig.f, gensig.f and nocomma.f.
Moved variables lat_min_guide and lat_max_guide from module
tau2alpha_m to module conf_guide_m.
Removed variables nivsig and nivsigs of module disvert_m. Instead, in
initdynav and initfluxsto, directly wrote arithmetic sequence for
verical axis, pending a better vertical axis. Removed variables nivsig
and nivsigs of "(re)?.start.nc".
In procedure exner_hyb, replaced p(:, :, 1) by equivalent ps.
Revision
82 -
(
view)
(
annotate)
-
[selected]
Modified
Wed Mar 5 14:57:53 2014 UTC
(10 years, 4 months ago)
by
guez
Original Path:
trunk/src_gcm_only
File length: 3123 byte(s)
Diff to
previous 81
Changed all ".f90" suffixes to ".f".
Revision
81 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Mar 5 14:38:41 2014 UTC
(10 years, 4 months ago)
by
guez
Original Path:
trunk/src_gcm_only
File length: 3699 byte(s)
Diff to
previous 79
,
to
selected 82
Converted to free source form files which were still in fixed source
form. The conversion was done using the polish mode of the NAG Fortran
Compiler.
In addition to converting to free source form, the processing of the
files also:
-- indented the code (including comments);
-- set Fortran keywords to uppercase, and set all other identifiers
to lower case;
-- added qualifiers to end statements (for example "end subroutine
conflx", instead of "end");
-- changed the terminating statements of all DO loops so that each
loop ends with an ENDDO statement (instead of a labeled continue).
Revision
79 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Feb 28 17:52:47 2014 UTC
(10 years, 4 months ago)
by
guez
Original Path:
trunk/src_gcm_only
File length: 3559 byte(s)
Copied from:
trunk/src_no_main_gcm_only revision 78
Diff to
previous 78
,
to
selected 82
Moved procedure iniconst inside module comconst. Removed useless
variables of module comconst: im, jm, lllm, imp1, jmp1, lllmm1,
lllmp1, lcl, cotot, unsim. Move definition of dtvr that was in
dynetat0 and etat0 to iniconst. Moved comparison of dtvr from day_step
and start.nc that was in gcm to dynetat0. Moved call to disvert out of
iniconst. Moved call to iniconst in gcm before call to dynetat0.
Removed unused argument pvteta of physiq (not used either in LMDZ).
Revision
78 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Feb 5 17:51:07 2014 UTC
(10 years, 5 months ago)
by
guez
Original Path:
trunk/src_no_main_gcm_only
File length: 3539 byte(s)
Copied from:
trunk/sources_gcm_only revision 77
Diff to
previous 76
,
to
selected 82
Moved procedure inigeom into module comgeom.
In disvert, renamed s_sampling to vert_sampling, following
LMDZ. Removed choice strato1. In case read, read ap and bp instead of
s (following LMDZ).
Added argument phis to start_init_orog and start_init_dyn, and removed
variable phis of module start_init_orog_m. In etat0 and
start_init_orog, renamed relief to zmea_2d. In start_init_dyn, renamed
psol to ps.
In start_init_orog, renamed relief_hi to relief. No need to set
phis(iim + 1, :) = phis(1, :), already done in grid_noro.
Documentation for massbar out of SVN, in massbar.txt. Documentation
was duplicated in massdair, but not relevant in massdair.
In conflx, no need to initialize pen_[ud] and pde_[ud]. In flxasc,
used intermediary variable fact (following LMDZ).
In grid_noro, added local variable zmea0 for zmea not smoothed and
computed zphi from zmea instead of zmea0 (following LMDZ). This
changes the results of ce0l.
Removed arguments pen_u and pde_d of phytrac and nflxtr, which were
not used.
Revision
72 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Jul 23 13:00:07 2013 UTC
(10 years, 11 months ago)
by
guez
Original Path:
trunk/libf/sources_gcm_only
File length: 3325 byte(s)
Diff to
previous 71
,
to
selected 82
NaN to signalling NaN in gfortran_debug.mk.
Removed unused procedures in getincom and getincom2. In procedure
conf_interface, replaced call to getincom by new namelist. Moved
procedure conf_interface into module interface_surf.
Added variables sig1 and w01 to startphy.nc and restartphy.nc, for
procedure cv_driver. Renamed (ema_)?work1 and (ema_)?work2 to sig1 and
w01 in concvl and physiq.
Deleted unused arguments of clmain, clqh and intersurf_hq, among which
(y)?sollwdown. Following LMDZ, in physiq, read sollw instead of
sollwdown from startphy.nc, write sollw instead of sollwdown to
restartphy.nc.
In procedure sw, initialized zfs[ud][pn]a[di], for runs where ok_ade
and ok_aie are false. (Following LMDZ.)
Added dimension klev to startphy.nc and restartphy.nc, and deleted
dimension horizon_vertical. Made t_ancien and q_ancien two-dimensional
NetCDF variables. Bug fix: in phyetat0, define ratqs, clwcon and
rnebcon for vertical levels >=2.
Bug fix: set mfg, p[de]n_[ud] to 0. when iflag_con >= 3. (Following LMDZ.)
Revision
71 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Jul 8 18:12:18 2013 UTC
(11 years ago)
by
guez
Original Path:
trunk/libf/sources_gcm_only
File length: 3340 byte(s)
Diff to
previous 70
,
to
selected 82
No reason to call inidissip in ce0l.
In inidissip, set random seed to 1 beacuse PGI compiler does not
accept all zeros.
dq was computed needlessly in caladvtrac. Arguments masse and dq of
calfis not used.
Replaced real*8 by double precision.
Pass arrays with inverted order of vertical levels to conflx instead
of creating local variables for this inside conflx.
Revision
70 -
(
view)
(
annotate)
-
[select for diffs]
Added
Mon Jun 24 15:39:52 2013 UTC
(11 years ago)
by
guez
Original Path:
trunk/libf/sources_gcm_only
File length: 3284 byte(s)
Diff
to
selected 82
In procedure, "addfi" access directly the module variable "dtphys"
instead of going through an argument.
In "conflx", do not create a local variable for temperature with
reversed order of vertical levels. Instead, give an actual argument
with reversed order in "physiq".
Changed names of variables "rmd" and "rmv" from module "suphec_m" to
"md" and "mv".
In "hgardfou", print only the first temperature out of range found.
This form allows you to request diffs between any two revisions of this file.
For each of the two "sides" of the diff,
enter a numeric revision.