| Directory: | ./ |
|---|---|
| File: | phy_common/init_print_control_mod.f90 |
| Date: | 2022-01-11 19:19:34 |
| Exec | Total | Coverage | |
|---|---|---|---|
| Lines: | 15 | 19 | 78.9% |
| Branches: | 3 | 8 | 37.5% |
| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | MODULE init_print_control_mod | ||
| 2 | |||
| 3 | ! init_print_control to initialize print_control_mod variables | ||
| 4 | ! not included there because of circular dependecy issues | ||
| 5 | |||
| 6 | CONTAINS | ||
| 7 | |||
| 8 | 1 | SUBROUTINE init_print_control | |
| 9 | USE print_control_mod, ONLY : set_print_control | ||
| 10 | USE ioipsl_getin_p_mod, ONLY : getin_p | ||
| 11 | USE mod_phys_lmdz_para, ONLY: is_omp_root, is_master | ||
| 12 | IMPLICIT NONE | ||
| 13 | |||
| 14 | INTEGER :: lunout ! default output file identifier (6==screen) | ||
| 15 | INTEGER :: prt_level ! Output level | ||
| 16 | LOGICAL :: debug ! flag to specify if in "debug mode" | ||
| 17 | LOGICAL :: opened | ||
| 18 | INTEGER :: number | ||
| 19 | |||
| 20 | !Config Key = prt_level | ||
| 21 | !Config Desc = niveau d'impressions de débogage | ||
| 22 | !Config Def = 0 | ||
| 23 | !Config Help = Niveau d'impression pour le débogage | ||
| 24 | !Config (0 = minimum d'impression) | ||
| 25 | 1 | prt_level = 0 | |
| 26 | 1 | CALL getin_p('prt_level',prt_level) | |
| 27 | |||
| 28 | !Config Key = lunout | ||
| 29 | !Config Desc = unite de fichier pour les impressions | ||
| 30 | !Config Def = 6 | ||
| 31 | !Config Help = unite de fichier pour les impressions | ||
| 32 | !Config (defaut sortie standard = 6) | ||
| 33 | 1 | lunout=6 | |
| 34 | 1 | CALL getin_p('lunout', lunout) | |
| 35 | |||
| 36 |
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
|
1 | IF (is_omp_root) THEN |
| 37 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
|
1 | IF (lunout /= 5 .and. lunout /= 6) THEN |
| 38 | ✗ | INQUIRE(FILE='lmdz.out_0000',OPENED=opened,NUMBER=number) | |
| 39 | ✗ | IF (opened) THEN | |
| 40 | ✗ | lunout=number | |
| 41 | ELSE | ||
| 42 | OPEN(UNIT=lunout,FILE='lmdz.out_0000',ACTION='write', & | ||
| 43 | ✗ | STATUS='unknown',FORM='formatted') | |
| 44 | ENDIF | ||
| 45 | ENDIF | ||
| 46 | ENDIF | ||
| 47 | |||
| 48 | !Config Key = debug | ||
| 49 | !Config Desc = mode debogage | ||
| 50 | !Config Def = false | ||
| 51 | !Config Help = positionne le mode debogage | ||
| 52 | |||
| 53 | 1 | debug = .FALSE. | |
| 54 | 1 | CALL getin_p('debug',debug) | |
| 55 | |||
| 56 |
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
|
1 | IF (is_master) THEN |
| 57 | 1 | WRITE(lunout,*)"init_print_control: prt_level=",prt_level | |
| 58 | 1 | WRITE(lunout,*)"init_print_control: lunout=",lunout | |
| 59 | 1 | WRITE(lunout,*)"init_print_control: debug=",debug | |
| 60 | ENDIF | ||
| 61 | |||
| 62 | 1 | CALL set_print_control(lunout,prt_level,debug) | |
| 63 | |||
| 64 | 1 | END SUBROUTINE init_print_control | |
| 65 | |||
| 66 | END MODULE init_print_control_mod | ||
| 67 | |||
| 68 |