Log Message: |
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.
|