ROMS
Loading...
Searching...
No Matches
red_tide_wrt_pio.h
Go to the documentation of this file.
1/*
2** git $id$
3*************************************************** hernan g. arango ***
4** copyright(c) 2002-2025 the roms group **
5** licensed under a mit/x style license **
6** see license_roms.md **
7************************************************************************
8** **
9** writes red tide(stock et al., 2005; he et al., 2008) biological **
10** model input parameters into output netcdf files. it is included **
11** in routine "wrt_info.F". **
12** **
13************************************************************************
14*/
15
16!
17! Write out red tide (Stock et al., 2005; He et al., 2008) biological
18! model parameters.
19!
20 CALL pio_netcdf_put_ivar (ng, model, ncname, 'BioIter', &
21 & bioiter(ng), (/0/), (/0/), &
22 & piofile = piofile)
23 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
24
25 CALL pio_netcdf_put_fvar (ng, model, ncname, 'Gmax', &
26 & gmax(ng), (/0/), (/0/), &
27 & piofile = piofile)
28 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
29
30 CALL pio_netcdf_put_fvar (ng, model, ncname, 'Dg', &
31 & dg(ng), (/0/), (/0/), &
32 & piofile = piofile)
33 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
34
35 CALL pio_netcdf_put_fvar (ng, model, ncname, 'Kn', &
36 & kn(ng), (/0/), (/0/), &
37 & piofile = piofile)
38 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
39
40 CALL pio_netcdf_put_fvar (ng, model, ncname, 'G_eff', &
41 & g_eff(ng), (/0/), (/0/), &
42 & piofile = piofile)
43 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
44
45 CALL pio_netcdf_put_fvar (ng, model, ncname, 'G_r', &
46 & g_r(ng), (/0/), (/0/), &
47 & piofile = piofile)
48 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
49
50 CALL pio_netcdf_put_fvar (ng, model, ncname, 'AttW', &
51 & attw(ng), (/0/), (/0/), &
52 & piofile = piofile)
53 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
54
55 CALL pio_netcdf_put_fvar (ng, model, ncname, 'AttS', &
56 & atts(ng), (/0/), (/0/), &
57 & piofile = piofile)
58 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
59
60 CALL pio_netcdf_put_fvar (ng, model, ncname, 'E_light', &
61 & e_light(ng), (/0/), (/0/), &
62 & piofile = piofile)
63 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
64
65 CALL pio_netcdf_put_fvar (ng, model, ncname, 'E_dark', &
66 & e_dark(ng), (/0/), (/0/), &
67 & piofile = piofile)
68 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
69
70 CALL pio_netcdf_put_fvar (ng, model, ncname, 'Tmin_growth', &
71 & tmin_growth(ng), (/0/), (/0/), &
72 & piofile = piofile)
73 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
74
75 CALL pio_netcdf_put_fvar (ng, model, ncname, 'DIN_Cdepth', &
76 & din_cdepth(ng), (/0/), (/0/), &
77 & piofile = piofile)
78 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
79
80 CALL pio_netcdf_put_fvar (ng, model, ncname, 'wDino', &
81 & wdino(ng), (/0/), (/0/), &
82 & piofile = piofile)
83 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
84
85 CALL pio_netcdf_put_fvar (ng, model, ncname, 'Mor_a', &
86 & mor_a(ng), (/0/), (/0/), &
87 & piofile = piofile)
88 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
89
90 CALL pio_netcdf_put_fvar (ng, model, ncname, 'Mor_b', &
91 & mor_b(ng), (/0/), (/0/), &
92 & piofile = piofile)
93 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
94
95 CALL pio_netcdf_put_fvar (ng, model, ncname, 'Mor_Q10', &
96 & mor_q10(ng), (/0/), (/0/), &
97 & piofile = piofile)
98 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
99
100 CALL pio_netcdf_put_fvar (ng, model, ncname, 'Mor_T0', &
101 & mor_t0(ng), (/0/), (/0/), &
102 & piofile = piofile)
103 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
output
subroutine output(ng)
Definition output.F:4