/[lmdze]/trunk/phylmd/Thermcell/ctherm.f
ViewVC logotype

Contents of /trunk/phylmd/Thermcell/ctherm.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 324 - (show annotations)
Wed Feb 6 15:58:03 2019 UTC (5 years, 3 months ago) by guez
File size: 486 byte(s) 
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.
1 module ctherm_m
2
3 implicit none
4
5 logical, protected:: iflag_thermals = .false.
6 integer, protected:: nsplit_thermals = 1
7
8 contains
9
10 subroutine ctherm
11
12 use unit_nml_m, only: unit_nml
13
14 namelist /ctherm_nml/ iflag_thermals, nsplit_thermals
15
16 !--------------------------------------------------------------------
17
18 print *, "Enter namelist 'ctherm_nml'."
19 read(unit=*, nml=ctherm_nml)
20 write(unit_nml, nml=ctherm_nml)
21
22 end subroutine ctherm
23
24 end module ctherm_m
  ViewVC Help
Powered by ViewVC 1.1.21