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

Annotation of /trunk/dyn3d/unit_nml_m.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 276 - (hide 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 guez 57 module unit_nml_m
2    
3     implicit none
4    
5 guez 276 integer, protected:: unit_nml
6     ! logical unit number for file containing used namelists
7 guez 57
8 guez 276 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 guez 57 end module unit_nml_m

  ViewVC Help
Powered by ViewVC 1.1.21