Changeset 7792 for branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters/constantes.f90

Timestamp:

2022-11-03T13:21:32+01:00 (20 months ago)

Author:

josefine.ghattas

Message:

Minimum of modifications to have PRINTLEV=1 functionnality(only master opens out_orchidee text file) as in the ticket #874

File:

• branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters/constantes.f90 (modified) (3 diffs)

branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters/constantes.f90

@@ -35 +35 @@
   USE defprec
   USE ioipsl_para, ONLY : getin_p, ipslerr_p
-  USE mod_orchidee_para_var, ONLY : numout
+  USE mod_orchidee_para_var, ONLY : numout, is_mpi_root, is_omp_root
+  USE mod_orchidee_para, ONLY : Set_stdout_file 
   USE time, ONLY : one_day, dt_sechiba
 
@@ -2387 +2388 @@
     !! 1.0  Read the global PRINTLEV from run.def. This is only done at first call to this function. 
     IF (first) THEN
-       !Config Key   = PRINTLEV
-       !Config Desc  = Print level for text output
-       !Config If    = 
-       !Config Help  = Possible values are:
-       !Config         0    No output, 
-       !Config         1    Minimum writing for long simulations, 
-       !Config         2    More basic information for long simulations, 
-       !Config         3    First debug level, 
-       !Config         4    Higher debug level
-       !Config Def   = 2
-       !Config Units = [0, 1, 2, 3, 4]
-       ! Default value is set in constantes_var
-       CALL getin_p('PRINTLEV',printlev)
+       CALL Set_stdout_file('out_orchidee')
        first=.FALSE.
 
@@ -2417 +2406 @@
     CALL getin_p('PRINTLEV_'//modname, get_printlev)
 
+    IF (get_printlev .EQ. 1) THEN
+       IF (is_mpi_root.AND.is_omp_root) THEN
+          ! Keep output level 1 only for the master processor
+          get_printlev=1
+       ELSE
+          ! Change output level for all other processors
+          get_printlev=0
+       END IF
+    END IF
+
   END FUNCTION get_printlev