[1] | 1 | SUBROUTINE run_control |
---|
| 2 | |
---|
| 3 | !------------------------------------------------------------------------------! |
---|
| 4 | ! Actual revisions: |
---|
| 5 | ! ----------------- |
---|
[82] | 6 | ! Preprocessor strings for different linux clusters changed to "lc", |
---|
| 7 | ! routine local_flush is used for buffer flushing |
---|
[1] | 8 | ! |
---|
| 9 | ! Former revisions: |
---|
| 10 | ! ----------------- |
---|
[3] | 11 | ! $Id: run_control.f90 82 2007-04-16 15:40:52Z raasch $ |
---|
| 12 | ! RCS Log replace by Id keyword, revision history cleaned up |
---|
| 13 | ! |
---|
[1] | 14 | ! Revision 1.20 2006/06/02 15:23:47 raasch |
---|
| 15 | ! cpp-directives extended for lctit |
---|
| 16 | ! |
---|
| 17 | ! Revision 1.1 1997/08/11 06:25:38 raasch |
---|
| 18 | ! Initial revision |
---|
| 19 | ! |
---|
| 20 | ! |
---|
| 21 | ! Description: |
---|
| 22 | ! ------------ |
---|
| 23 | ! Computation and output of run-control quantities |
---|
| 24 | !------------------------------------------------------------------------------! |
---|
| 25 | |
---|
| 26 | USE cpulog |
---|
| 27 | USE indices |
---|
| 28 | USE interfaces |
---|
| 29 | USE pegrid |
---|
| 30 | USE statistics |
---|
| 31 | USE control_parameters |
---|
| 32 | |
---|
| 33 | IMPLICIT NONE |
---|
| 34 | |
---|
| 35 | CHARACTER (LEN=1) :: change_chr, disturb_chr |
---|
| 36 | |
---|
| 37 | ! |
---|
| 38 | !-- If required, do statistics |
---|
| 39 | IF ( .NOT. flow_statistics_called ) CALL flow_statistics |
---|
| 40 | |
---|
| 41 | ! |
---|
| 42 | !-- Flow_statistics has its own cpu-time measurement |
---|
| 43 | CALL cpu_log( log_point(11), 'run_control', 'start' ) |
---|
| 44 | |
---|
| 45 | ! |
---|
| 46 | !-- Output |
---|
| 47 | IF ( myid == 0 ) THEN |
---|
| 48 | |
---|
| 49 | ! |
---|
| 50 | !-- Check, whether file unit is already open (may have been opened in header |
---|
| 51 | !-- before) |
---|
| 52 | CALL check_open( 15 ) |
---|
| 53 | |
---|
| 54 | ! |
---|
| 55 | !-- If required, write header |
---|
| 56 | IF ( .NOT. run_control_header ) THEN |
---|
| 57 | WRITE ( 15, 100 ) |
---|
| 58 | run_control_header = .TRUE. |
---|
| 59 | ENDIF |
---|
| 60 | |
---|
| 61 | ! |
---|
| 62 | !-- Output the the beginning of the run receives no information about an |
---|
| 63 | !-- Euler-timestep |
---|
| 64 | IF ( dt_changed .AND. simulated_time /= 0.0 .AND. & |
---|
| 65 | timestep_scheme(1:5) /= 'runge' ) THEN |
---|
| 66 | IF ( timestep_scheme == 'leapfrog' ) THEN |
---|
| 67 | change_chr = 'L' |
---|
| 68 | ELSE |
---|
| 69 | change_chr = 'E' |
---|
| 70 | ENDIF |
---|
| 71 | ELSE |
---|
| 72 | change_chr = ' ' |
---|
| 73 | ENDIF |
---|
| 74 | ! |
---|
| 75 | !-- If required, set disturbance flag |
---|
| 76 | IF ( disturbance_created ) THEN |
---|
| 77 | disturb_chr = 'D' |
---|
| 78 | ELSE |
---|
| 79 | disturb_chr = ' ' |
---|
| 80 | ENDIF |
---|
| 81 | WRITE ( 15, 101 ) runnr, current_timestep_number, simulated_time_chr, & |
---|
| 82 | simulated_time-INT( simulated_time ), dt_3d, & |
---|
| 83 | timestep_reason, change_chr, u_max, disturb_chr, & |
---|
| 84 | v_max, disturb_chr, w_max, hom(nzb,1,var_hom,0), & |
---|
| 85 | hom(nzb+8,1,var_hom,0), hom(nzb+3,1,var_hom,0), & |
---|
| 86 | hom(nzb+6,1,var_hom,0), hom(nzb+4,1,var_hom,0), & |
---|
| 87 | hom(nzb+5,1,var_hom,0), hom(nzb+9,1,var_hom,0), & |
---|
| 88 | hom(nzb+10,1,var_hom,0), u_max_ijk(1:3), & |
---|
| 89 | v_max_ijk(1:3), w_max_ijk(1:3), & |
---|
| 90 | advected_distance_x/1000.0, & |
---|
| 91 | advected_distance_y/1000.0, mgcycles |
---|
| 92 | ! |
---|
| 93 | !-- Write buffer contents to disc immediately |
---|
[82] | 94 | CALL local_flush( 15 ) |
---|
| 95 | |
---|
[1] | 96 | ENDIF |
---|
| 97 | ! |
---|
| 98 | !-- If required, reset disturbance flag. This has to be done outside the above |
---|
| 99 | !-- IF-loop, because the flag would otherwise only be reset on PE0 |
---|
| 100 | IF ( disturbance_created ) disturbance_created = .FALSE. |
---|
| 101 | |
---|
| 102 | CALL cpu_log( log_point(11), 'run_control', 'stop' ) |
---|
| 103 | |
---|
| 104 | ! |
---|
| 105 | !-- Formats |
---|
| 106 | 100 FORMAT (///'Run-control output:'/ & |
---|
| 107 | &'------------------'// & |
---|
| 108 | &'RUN ITER. HH:MM:SS.SS DT(E) UMAX VMAX WMAX U*', & |
---|
| 109 | &' W* THETA* Z_I ENERG. DISTENERG DIVOLD DIVNE', & |
---|
| 110 | &'W UMAX(KJI) VMAX(KJI) WMAX(KJI) ADVECX ADVECY MG', & |
---|
| 111 | &'CYC'/ & |
---|
| 112 | &'----------------------------------------------------------------', & |
---|
| 113 | &'----------------------------------------------------------------', & |
---|
| 114 | &'----------------------------------------------------------------', & |
---|
| 115 | &'--') |
---|
| 116 | 101 FORMAT (I3,1X,I6,1X,A8,F3.2,1X,F7.4,A1,A1,F8.4,A1,F8.4,A1,F8.4,2X,F5.3,2X, & |
---|
| 117 | F4.2, & |
---|
| 118 | 2X,F6.3,2X,F5.0,1X,4(E10.3,1X),3(3(I4),1X),F8.3,1X,F8.3,5X,I3) |
---|
| 119 | |
---|
| 120 | END SUBROUTINE run_control |
---|