/[lmdze]/trunk/dyn3d/unit_nml_m.f
ViewVC logotype

Contents of /trunk/dyn3d/unit_nml_m.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 276 - (show annotations)
Thu Jul 12 14:49:20 2018 UTC (5 years, 10 months ago) by guez
File size: 354 byte(s)
Move procedure read_serre from module read_serre_m to module
dynetat0_m, to avoid side effet on variables of module dynetat0_m.

Create procedure set_unit_nml to avoid side effect on variable of
module unit_nml_m.

Downgrade pctsrf from variable of module etat0_m to argument of etat0
and limit to avoid side effect on pctsrf.

Move variable zmasq from module dimphy to module phyetat0_m to avoid
side effect on zmasq.

1 module unit_nml_m
2
3 implicit none
4
5 integer, protected:: unit_nml
6 ! logical unit number for file containing used namelists
7
8 contains
9
10 subroutine set_unit_nml
11
12 use jumble, only: new_unit
13
14 !--------------------------------------------------------------
15
16 call new_unit(unit_nml)
17
18 end subroutine set_unit_nml
19
20 end module unit_nml_m

  ViewVC Help
Powered by ViewVC 1.1.21