Revision
323 -
(
show annotations)
Thu Jan 24 17:19:06 2019 UTC
(5 years, 5 months ago)
by
guez
Original Path:
trunk/phylmd/ctherm.f
File size: 486 byte(s)
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.