-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathplot_output.f90
106 lines (75 loc) · 2.92 KB
/
plot_output.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
! ----------------------------------------------------------------
! file: plot_output.f90
! ----------------------------------------------------------------
! ----------------------------------------------------------------
! Battelle Memorial Institute
! Pacific Northwest Laboratory
! ----------------------------------------------------------------
! ----------------------------------------------------------------
! Created May 21, 1999 by William A. Perkins
! Last Change: 2014-04-25 10:38:00 d3g096
! ----------------------------------------------------------------
! RCS ID: $Id$ Battelle PNL
! ----------------------------------------------------------------
! MODULE plot_output
! ----------------------------------------------------------------
MODULE plot_output
USE config
USE plot_cgns
IMPLICIT NONE
CHARACTER (LEN=80), PRIVATE, SAVE :: rcsid = "$Id$"
CONTAINS
! ----------------------------------------------------------------
! SUBROUTINE plot_zone_name
! ----------------------------------------------------------------
SUBROUTINE plot_zone_name(date_string, time_string, zone_name)
IMPLICIT NONE
CHARACTER (LEN=*) :: date_string, time_string, zone_name
CHARACTER blk
zone_name = TRIM(date_string) // ' ' // TRIM(time_string) // ' ' // 'block '
END SUBROUTINE plot_zone_name
! ----------------------------------------------------------------
! SUBROUTINE plot_file_setup
! ----------------------------------------------------------------
SUBROUTINE plot_file_setup()
IMPLICIT NONE
#include "global.fh"
! this has to be collective
CALL plot_geometry()
!FIXME: CALL accum_initialize()
IF (plot_do_cgns .AND. ga_nodeid() .EQ. 0) THEN
CALL plot_cgns_setup()
END IF
END SUBROUTINE plot_file_setup
! ----------------------------------------------------------------
! SUBROUTINE plot_print
! ----------------------------------------------------------------
SUBROUTINE plot_print(date_string, time_string, salinity, baro_press)
IMPLICIT NONE
#include "global.fh"
CHARACTER (LEN=*) :: date_string
CHARACTER (LEN=*) :: time_string
DOUBLE PRECISION :: delta_t, salinity, baro_press
CHARACTER (LEN=80) :: zone_name
CALL velocity_shift()
IF (do_flow_diag) CALL calc_diag()
!FIXME: CALL accum_calc()
CALL ga_sync()
IF (plot_do_cgns .AND. ga_nodeid() .EQ. 0) THEN
CALL plot_cgns_write(date_string, time_string)
END IF
CALL ga_sync()
!FIXME: CALL accum_reset()
END SUBROUTINE plot_print
! ----------------------------------------------------------------
! SUBROUTINE plot_file_close
! ----------------------------------------------------------------
SUBROUTINE plot_file_close()
IMPLICIT NONE
#include "global.fh"
IF (plot_do_cgns .AND. ga_nodeid() .EQ. 0) THEN
CALL plot_cgns_close()
END IF
!FIXME: CALL accum_done()
END SUBROUTINE plot_file_close
END MODULE plot_output