/[lmdze]/trunk/libf/dyn3d/iniprint.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/iniprint.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 11 by guez, Wed Feb 27 13:16:39 2008 UTC revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC
# Line 4  module iniprint Line 4  module iniprint
4    
5    implicit none    implicit none
6    
   INTEGER:: lunout = 6  
   ! (unité du fichier dans lequel se font les sorties, par défaut la  
   ! sortie standard)  
   
7    integer:: prt_level = 0 ! niveau d'impression souhaité (0 = minimum)    integer:: prt_level = 0 ! niveau d'impression souhaité (0 = minimum)
8    
9  contains  contains
10    
11    subroutine read_iniprint    subroutine read_iniprint
12    
13      namelist /iniprint_nml/lunout, prt_level      namelist /iniprint_nml/prt_level
14    
15      !-------------------------------------------------      !-------------------------------------------------
16    
Legend:
Removed from v.11  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21