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

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

Parent Directory Parent Directory | Revision Log Revision Log

Revision 324 - (hide annotations)
Wed Feb 6 15:58:03 2019 UTC (5 years, 5 months ago) by guez
Original Path: trunk/phylmd/Thermcell/ctherm.f
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 guez 323 module ctherm_m
2 guez 3
3     implicit none
4    
5 guez 323 logical, protected:: iflag_thermals = .false.
6     integer, protected:: nsplit_thermals = 1
7 guez 3
8 guez 323 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