Log of /trunk/phylmd/Thermcell/ctherm.f90

---

Revision 328 - (view) (annotate) - [select for diffs]
Modified Thu Jun 13 14:40:06 2019 UTC (4 years, 11 months ago) by guez
File length: 486 byte(s)
Copied from: trunk/phylmd/Thermcell/ctherm.f revision 327
Diff to previous 324

Change all `.f` suffixes to `.f90`. (The opposite was done in revision
82.)  Because of change of philosopy in GNUmakefile: we already had a
rewritten rule for `.f`, so it does not make the makefile longer to
replace it by a rule for `.f90`. And it spares us options of
makedepf90 and of the compiler. Also we prepare the way for a simpler
`CMakeLists.txt`.

---

Revision 324 - (view) (annotate) - [select for diffs]
Modified Wed Feb 6 15:58:03 2019 UTC (5 years, 3 months ago) by guez
Original Path: trunk/phylmd/Thermcell/ctherm.f
File length: 486 byte(s)
Copied from: trunk/phylmd/ctherm.f revision 323
Diff to previous 323

Rename variable zmasq of module phyetat0_m to masque, which was
already its name in "restartphy.nc". Rename variable fraclic of
procedure etat0 to landice, which was already its name in
"landiceref.nc". Style guide: we try to have the same names for
identical data objects across the program.

In procedure interfsurf_hq, in case is_sic, define tsurf instead of
tsurf_new, avoiding a copy from tsurf_new to tsurf.

---

Revision 323 - (view) (annotate) - [select for diffs]
Modified Thu Jan 24 17:19:06 2019 UTC (5 years, 4 months ago) by guez
Original Path: trunk/phylmd/ctherm.f
File length: 486 byte(s)
Diff to previous 254

Rename module ctherm to ctherm_m. Create procedure ctherm in module
ctherm_m. Read variables of module ctherm_m in ctherm rather than in
physiq.

Downgrade variables l_mix_thermals, r_aspect_thermals, tho_thermals
and w2di_thermals of module ctherm_m to local named constants l_mix,
r_aspect, tho and w2di of procedure thermcell.

Change type of iflag_thermals from integer to logical.

---

Revision 254 - (view) (annotate) - [select for diffs]
Modified Mon Feb 5 10:39:38 2018 UTC (6 years, 3 months ago) by guez
Original Path: trunk/phylmd/ctherm.f
File length: 220 byte(s)
Diff to previous 213

Move Sources/* to root directory.

---

Revision 213 - (view) (annotate) - [select for diffs]
Modified Mon Feb 27 15:44:55 2017 UTC (7 years, 3 months ago) by guez
Original Path: trunk/Sources/phylmd/ctherm.f
File length: 220 byte(s)
Diff to previous 134

Removed module conema3_m. Moved variables epmax and iflag_clw of
conema3_m to conf_phys_m, where they are defined. Removed unused
variable ok_adj_ema of conema3_m.

Added variables d_t_ec, dtsw0 and dtlw0 to histins.nc (following LMDZ).

Removed case not lessivage in phytrac. (Not used in LMDZ without INCA
either.)

---

Revision 134 - (view) (annotate) - [select for diffs]
Modified Wed Apr 29 15:47:56 2015 UTC (9 years, 1 month ago) by guez
Original Path: trunk/Sources/phylmd/ctherm.f
File length: 289 byte(s)
Copied from: trunk/phylmd/ctherm.f90 revision 80
Diff to previous 82

Sources inside, compilation outside.

---

Revision 82 - (view) (annotate) - [select for diffs]
Modified Wed Mar 5 14:57:53 2014 UTC (10 years, 3 months ago) by guez
Original Path: trunk/phylmd/ctherm.f
File length: 289 byte(s)
Copied from: trunk/phylmd/ctherm.f90 revision 80
Diff to previous 76

Changed all ".f90" suffixes to ".f".

---

Revision 76 - (view) (annotate) - [select for diffs]
Modified Fri Nov 15 18:45:49 2013 UTC (10 years, 6 months ago) by guez
Original Path: trunk/phylmd/ctherm.f90
File length: 289 byte(s)
Diff to previous 54

Moved everything out of libf.

---

Revision 54 - (view) (annotate) - [select for diffs]
Modified Tue Dec 6 15:07:04 2011 UTC (12 years, 5 months ago) by guez
Original Path: trunk/libf/phylmd/ctherm.f90
File length: 289 byte(s)
Diff to previous 3

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 3 - (view) (annotate) - [select for diffs]
Added Wed Feb 27 13:16:39 2008 UTC (16 years, 3 months ago) by guez
Original Path: trunk/libf/phylmd/ctherm.f90
File length: 286 byte(s)

Initial import