Log of /trunk/phylmd/Radlwsw
Directory Listing
Revision
118 -
Directory Listing
Modified
Thu Dec 18 17:30:24 2014 UTC
(9 years, 6 months ago)
by
guez
In file grilles_gcm.nc, renamed variable phis to orog, deleted
variable presnivs.
Removed variable bug_ozone from module clesphys.
In procedure ozonecm, moved computation of sint and cost out of the
loops on horizontal position and vertical level. Inverted the order of
the two loops. We can then move all computations from slat to aprim
out of the loop on vertical levels. Created variable slat2, following
LMDZ. Moved the limitation of column-density of ozone in cell at 1e-12
from radlwsw to ozonecm, following LMDZ.
Removed unused arguments u, albsol, rh, cldfra, rneb, diafra, cldliq,
pmflxr, pmflxs, prfl, psfl of phytrac.
In procedure yamada4, for all the arrays, replaced the dimension klon
by ngrid. At the end of the procedure, for the computation of kmn,kn,
kq and q2, changed the upper limit of the loop index from klon to ngrid.
In radlwsw, for the calculation of pozon, removed the factor
paprs(iof+i, 1)/101325, as in LMDZ. In procedure sw, removed the
factor 101325.0/PPSOL(JL), as in LMDZ.
Revision
105 -
Directory Listing
Modified
Thu Sep 4 10:40:24 2014 UTC
(9 years, 10 months ago)
by
guez
Removed intermediate variables in calcul_fluxs.
Revision
82 -
Directory Listing
Modified
Wed Mar 5 14:57:53 2014 UTC
(10 years, 4 months ago)
by
guez
Changed all ".f90" suffixes to ".f".
Revision
81 -
Directory Listing
Modified
Wed Mar 5 14:38:41 2014 UTC
(10 years, 4 months ago)
by
guez
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
76 -
Directory Listing
Modified
Fri Nov 15 18:45:49 2013 UTC
(10 years, 7 months ago)
by
guez
Moved everything out of libf.
Revision
72 -
Directory Listing
Modified
Tue Jul 23 13:00:07 2013 UTC
(10 years, 11 months ago)
by
guez
Original Path:
trunk/libf/phylmd/Radlwsw
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 -
Directory Listing
Modified
Mon Jul 8 18:12:18 2013 UTC
(11 years ago)
by
guez
Original Path:
trunk/libf/phylmd/Radlwsw
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 -
Directory Listing
Modified
Mon Jun 24 15:39:52 2013 UTC
(11 years ago)
by
guez
Original Path:
trunk/libf/phylmd/Radlwsw
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.
Revision
69 -
Directory Listing
Modified
Mon Feb 18 16:33:12 2013 UTC
(11 years, 4 months ago)
by
guez
Original Path:
trunk/libf/phylmd/Radlwsw
Deleted files cvparam3.f90 and nuagecom.f90. Moved variables from
module cvparam3 to module cv3_param_m. Moved variables rad_chau1 and
rad_chau2 from module nuagecom to module conf_phys_m.
Read clesphys2_nml from conf_phys instead of gcm.
Removed argument iflag_con from several procedures. Access module
variable instead.
Revision
62 -
Directory Listing
Modified
Thu Jul 26 14:37:37 2012 UTC
(11 years, 11 months ago)
by
guez
Original Path:
trunk/libf/phylmd/Radlwsw
Changed handling of compiler in compilation system.
Removed the prefix letters "y", "p", "t" or "z" in some names of variables.
Replaced calls to NetCDF by calls to NetCDF95.
Extracted "ioget_calendar" procedures from "calendar.f90" into a
separate file.
Extracted to a separate file, "mathop2.f90", procedures that were not
part of the generic interface "mathop" in "mathop.f90".
Removed computation of "dq" in "bilan_dyn", which was not used.
In "iniadvtrac", removed schemes 20 Slopes and 30 Prather. Was not
compatible with declarations of array sizes.
In "clcdrag", "ustarhb", "vdif_kcay", "yamada4" and "coefkz", changed
the size of some arrays from "klon" to "knon".
Removed possible call to "conema3" in "physiq".
Removed unused argument "cd" in "yamada".
Revision
52 -
Directory Listing
Modified
Fri Sep 23 12:28:01 2011 UTC
(12 years, 9 months ago)
by
guez
Original Path:
trunk/libf/phylmd/Radlwsw
Split "conflx.f" into single-procedure files in directory "Conflx".
Split "cv_routines.f" into single-procedure files in directory
"CV_routines". Made module "cvparam" from included file
"cvparam.h". No included file other than "netcdf.inc" left in LMDZE.
Revision
38 -
Directory Listing
Modified
Thu Jan 6 17:52:19 2011 UTC
(13 years, 6 months ago)
by
guez
Original Path:
trunk/libf/phylmd/Radlwsw
Extracted ASCII art from "inigeom" into a separate text file in the
documentation.
"test_disvert" now creates a separate file for layer thicknesses.
Moved variables from module "yomcst" to module "suphec_m" because this
is where those variables are defined. Kept in "yomcst" only parameters
of Earth orbit. Gave the attribute "parameter" to some variables of
module "suphec_m".
Variables of module "yoethf" were defined in procedure "suphec". Moved
these definitions to a new procedure "yoethf" in module "yoethf_m".
Revision
24 -
Directory Listing
Added
Wed Mar 3 13:23:49 2010 UTC
(14 years, 4 months ago)
by
guez
Original Path:
trunk/libf/phylmd/Radlwsw
Created directory "phylmd/Radlwsw". Split "radlwsw.f" in files
containing a single procedure.
Removed variable "itaufinp1" in "leapfrog".