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