Changeset 1134 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_mod.F90

Timestamp:

Mar 26, 2009, 12:57:31 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Menage sur les impressions intempestives par transformation des

print*,

en

if (prt_level > ??) write(lunout,*)

LF

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_mod.F90 (modified) (3 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_mod.F90

@@ -1054 +1054 @@
        IMPLICIT NONE
 
+       include 'iniprint.h'
+
        character(len=20)                :: nam_var
        integer, dimension(nfiles)      :: flag_var
@@ -1061 +1063 @@
         flag_var_omp = flag_var
         nam_var_omp = nam_var
-        print*,'Avant getin: nam_var flag_var ',nam_var,flag_var(:)
+        IF(prt_level>10) WRITE(lunout,*)'Avant getin: nam_var flag_var ',nam_var,flag_var(:)
         call getin('flag_'//nam_var,flag_var_omp)
         flag_var = flag_var_omp
@@ -1067 +1069 @@
         nam_var=nam_var_omp
         
-        print*,'Apres getin: nam_var flag_var ',nam_var,flag_var(:)
+        IF(prt_level>10) WRITE(lunout,*)'Apres getin: nam_var flag_var ',nam_var,flag_var(:)
 
       END SUBROUTINE conf_physoutputs