Changeset 7792 for branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters
- Timestamp:
- 2022-11-03T13:21:32+01:00 (20 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters/constantes.f90
r7709 r7792 35 35 USE defprec 36 36 USE ioipsl_para, ONLY : getin_p, ipslerr_p 37 USE mod_orchidee_para_var, ONLY : numout 37 USE mod_orchidee_para_var, ONLY : numout, is_mpi_root, is_omp_root 38 USE mod_orchidee_para, ONLY : Set_stdout_file 38 39 USE time, ONLY : one_day, dt_sechiba 39 40 … … 2387 2388 !! 1.0 Read the global PRINTLEV from run.def. This is only done at first call to this function. 2388 2389 IF (first) THEN 2389 !Config Key = PRINTLEV 2390 !Config Desc = Print level for text output 2391 !Config If = 2392 !Config Help = Possible values are: 2393 !Config 0 No output, 2394 !Config 1 Minimum writing for long simulations, 2395 !Config 2 More basic information for long simulations, 2396 !Config 3 First debug level, 2397 !Config 4 Higher debug level 2398 !Config Def = 2 2399 !Config Units = [0, 1, 2, 3, 4] 2400 ! Default value is set in constantes_var 2401 CALL getin_p('PRINTLEV',printlev) 2390 CALL Set_stdout_file('out_orchidee') 2402 2391 first=.FALSE. 2403 2392 … … 2417 2406 CALL getin_p('PRINTLEV_'//modname, get_printlev) 2418 2407 2408 IF (get_printlev .EQ. 1) THEN 2409 IF (is_mpi_root.AND.is_omp_root) THEN 2410 ! Keep output level 1 only for the master processor 2411 get_printlev=1 2412 ELSE 2413 ! Change output level for all other processors 2414 get_printlev=0 2415 END IF 2416 END IF 2417 2419 2418 END FUNCTION get_printlev 2420 2419
Note: See TracChangeset
for help on using the changeset viewer.