Log of /trunk/phylmd/Interface_surf/conf_interface.f
Parent Directory
| Revision Log
Revision
301 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Aug 2 17:23:07 2018 UTC
(6 years ago)
by
guez
File length: 759 byte(s)
Diff to
previous 297
,
to
selected 53
Move the call to conf_interface up to physiq, so there is no need to
test first call inside pbl_surface for this.
run_off_lic in fonte_neige was computed but not used. Pass it up to
pbl_surface so we can output it (following LMDZ).
Simplify the logic in interfsur_lim so we do not need debut.
Remove the tests on the order of surface types in interfsurf_hq. Just
add comments in indicesol.
Revision
217 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Mar 30 14:25:18 2017 UTC
(7 years, 4 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/Interface_surf/interface_surf.f
File length: 745 byte(s)
Diff to
previous 202
,
to
selected 53
run_off_lic downgraded from variable of module interface_surf to local
variable of fonte_neige.
Code could not work with ok_aie set to true, so removed this
possibility. tauae, piz_ae, cg_ae, topswai, solswai were then
0. cldtaupi was the same as cldtaupd.
In sw and procedures called by sw, flag_aer did not need to be double
precision, changed it to logical.
Downgraded re and fl from arguments of newmicro to local
variables. Added output of re and fl (following LMDZ).
Revision
202 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Jun 8 12:23:41 2016 UTC
(8 years, 2 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/Interface_surf/interface_surf.f
File length: 811 byte(s)
Diff to
previous 134
,
to
selected 53
Promoted lmt_pas from local variable of physiq to variable of module
conf_gcm_m.
Removed variable run_off of module interface_surf. Was not
used. Called run_off_ter in LMDZ, but not used nor printed there
either.
Simplified logic in interfoce_lim. The way it was convoluted with
interfsurf_hq and clmain was quite a mess. Extracted reading of SST
into a separate procedure: read_sst. We do not need SST and pctsrf_new
at the same time: SST is not needed for sea-ice surface. I did not
like this programming: going through the procedure repeatedly for
different purposes and testing inside whether there was something to
do or it was already done. Reading is now only controlled by itap and
lmt_pas, instead of debut, jour, jour_lu and deja_lu. Now we do not
copy from pct_tmp to pctsrf_new every time step.
Simplified processing of pctsrf in clmain and below. It was quite
troubling: pctsrf_new was intent out in interfoce_lim but only defined
for ocean and sea-ice. Also the idea of having arrays for all
surfaces, pcsrf and pctsrf_new, in interfsurf_hq, which is called for
a particular surface, was troubling. pctsrf_new for all surfaces was
intent out in intefsurf_hq, but not defined for all surfaces at each
call. Removed argument pctsrf_new of clmain: was a duplicate of pctsrf
on output, and not used in physiq. Replaced pctsrf_new in clmain by
pctsrf_new_oce and pctsrf_new_sic, which were the only ones modified.
Revision
101 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Jul 7 17:45:21 2014 UTC
(10 years, 1 month ago)
by
guez
Original Path:
trunk/phylmd/Interface_surf/interface_surf.f
File length: 842 byte(s)
Diff to
previous 100
,
to
selected 53
Removed unused files "interfoce_slab.f" and "gath2cpl.f". Removed
unused variables coastalflow and riverflow of module
interface_surf. Removed unused arguments cal, radsol, dif_grnd,
fluxlat, fluxsens, dflux_s, dflux_l of procedure fonte_neige. Removed
unused arguments tslab, seaice of procedure interfsurf_hq and
clqh. Removed unused arguments seaice of procedure clmain.
In interfsurf_hq, used variable soil_model of module clesphys2 instead
of cascading it as an argument from physiq.
In phyetat0, stop if masque not found.
Variable TS instead of "TS[0-9][0-9]" in "(re)startphy.nc", with
additional dimension nbsrf.
Revision
99 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Jul 2 18:39:15 2014 UTC
(10 years, 1 month ago)
by
guez
Original Path:
trunk/phylmd/Interface_surf/interface_surf.f
File length: 1016 byte(s)
Diff to
previous 82
,
to
selected 53
Created procedure test_disvert (following LMDZ). Added procedures
hybrid and funcd in module disvert_m. Upgraded compute_ab from
internal procedure of disvert to module procedure. Added variables y,
ya in module disvert_m. Upgraded s from local variable of procedure
disvert to module variable.
Renamed allowed value of variable vert_sampling in procedure disvert
from "read" to "read_hybrid". Added possibility to read pressure
values, value "read_pressure". Replaced vertical distribution for
value "param" by the distribution "strato_correct" from LMDZ (but kept
the value "param"). In case "tropo", replaced 1 by dsigmin (following
LMDZ). In case "strato", replaced 0.3 by dsigmin (following LMDZ).
Changed computation of bp in procedure compute_ab.
Removed debugindex case in clmain. Removed useless argument rlon of
procedure clmain. Removed useless variables ytaux, ytauy of procedure
clmain.
Removed intermediary variables tsol, qsol, tsolsrf, tslab in procedure
etat0.
Removed variable ok_veget:. coupling with the model Orchid is not
possible. Removed variable ocean: modeling an ocean slab is not
possible.
Removed useless variables tmp_rriv and tmp_rcoa from module
interface_surf.
Moved initialization of variables da, mp, phi in procedure physiq to
to inside the test iflag_con >= 3.
Revision
72 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Jul 23 13:00:07 2013 UTC
(11 years, 1 month ago)
by
guez
Original Path:
trunk/libf/phylmd/Interface_surf/interface_surf.f90
File length: 1036 byte(s)
Diff to
previous 54
,
to
selected 53
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
54 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Dec 6 15:07:04 2011 UTC
(12 years, 8 months ago)
by
guez
Original Path:
trunk/libf/phylmd/Interface_surf/interface_surf.f90
File length: 487 byte(s)
Copied from:
trunk/libf/phylmd/interface_surf.f90 revision 53
Diff to
previous 53
Removed Numerical Recipes procedure "ran1". Replaced calls to "ran1"
in "inidissip" by calls to intrinsic procedures.
Split file "interface_surf.f90" into a file with a module containing
only variables, "interface_surf", and single-procedure files. Gathered
files into directory "Interface_surf".
Added argument "cdivu" to "gradiv" and "gradiv2", "cdivh" to
"divgrad2" and "divgrad", and "crot" to "nxgraro2" and
"nxgrarot". "dissip" now uses variables "cdivu", "cdivh" and "crot"
from module "inidissip_m", so it can pass them to "gradiv2",
etc. Thanks to this modification, we avoid a circular dependency
betwwen "inidissip.f90" and "gradiv2.f90", etc. The value -1. used by
"gradiv2", for instance, during computation of eigenvalues is not the
value "cdivu" computed by "inidissip".
Extracted procedure "start_inter_3d" from module "startdyn", to its
own module.
In "inidissip", unrolled loop on "ii". I find it clearer now.
Moved variables "matriceun", "matriceus", "matricevn", "matricevs",
"matrinvn" and "matrinvs" from module "parafilt" to module
"inifilr_m". Moved variables "jfiltnu", "jfiltnv", "jfiltsu",
"jfiltsv" from module "coefils" to module "inifilr_m".
Revision
43 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Apr 8 12:43:31 2011 UTC
(13 years, 4 months ago)
by
guez
Original Path:
trunk/libf/phylmd/interface_surf.f90
File length: 60167 byte(s)
Diff to
previous 38
,
to
selected 53
"start_init_phys" is now called directly by "etat0" instead of through
"start_init_dyn". "qsol_2d" is no longer a variable of module
"start_init_phys_m", it is an argument of
"start_init_phys". "start_init_dyn" now receives "tsol_2d" from
"etat0".
Split file "vlspltqs.f" into "vlspltqs.f90", "vlxqs.f90" and
""vlyqs.f90".
In "start_init_orog", replaced calls to "flin*" by calls to NetCDF95.
Revision
38 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Jan 6 17:52:19 2011 UTC
(13 years, 7 months ago)
by
guez
Original Path:
trunk/libf/phylmd/interface_surf.f90
File length: 60635 byte(s)
Diff to
previous 14
,
to
selected 53
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
12 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Jul 21 16:05:07 2008 UTC
(16 years, 1 month ago)
by
guez
Original Path:
trunk/libf/phylmd/interface_surf.f90
File length: 64594 byte(s)
Diff to
previous 3
,
to
selected 53
-- Minor modification of input/output:
Created procedure "read_logic". Variables of module "logic" are read
by "read_logic" instead of "conf_gcm". Variable "offline" of module
"conf_gcm" is read from namelist instead of "*.def".
Deleted arguments "dtime", "co2_ppm_etat0", "solaire_etat0",
"tabcntr0" and local variables "radpas", "tab_cntrl" of
"phyetat0". "phyetat0" does not read "controle" in "startphy.nc" any
longer. "phyetat0" now reads global attribute "itau_phy" from
"startphy.nc". "phyredem" does not create variable "controle" in
"startphy.nc" any longer. "phyredem" now writes global attribute
"itau_phy" of "startphy.nc". Deleted argument "tabcntr0" of
"printflag". Removed diagnostic messages written by "printflag" for
comparison of the variable "controle" of "startphy.nc" and the
variables read from "*.def" or namelist input.
-- Removing unwanted functionality:
Removed variable "lunout" from module "iniprint", replaced everywhere
by standard output.
Removed case "ocean == 'couple'" in "clmain", "interfsurf_hq" and
"physiq". Removed procedure "interfoce_cpl".
-- Should not change anything at run time:
Automated creation of graphs in documentation. More documentation on
input files.
Converted Fortran files to free format: "phyredem.f90", "printflag.f90".
Split module "clesphy" into "clesphys" and "clesphys2".
Removed variables "conser", "leapf", "forward", "apphys", "apdiss" and
"statcl" from module "logic". Added arguments "conser" to "advect",
"leapf" to "integrd". Added local variables "forward", "leapf",
"apphys", "conser", "apdiss" in "leapfrog".
Added intent attributes.
Deleted arguments "dtime" of "phyredem", "pdtime" of "flxdtdq", "sh"
of "phytrac", "dt" of "yamada".
Deleted local variables "dtime", "co2_ppm_etat0", "solaire_etat0",
"length", "tabcntr0" in "physiq". Replaced all references to "dtime"
by references to "pdtphys".
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.