ROMS
Loading...
Searching...
No Matches
npzd_iron_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 npzd iron(fiechter, et al. 2009) ecosystem model input **
10** parameters into output netcdf files. it is included in routine **
11** "wrt_info.F". **
12** **
13************************************************************************
14*/
15
16!
17! Write out NPZD iron (Fiechter, et al. 2009) ecosystem model
18! 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, 'PARfrac', &
26 & parfrac(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, 'AttSW', &
31 & attsw(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, 'AttPhy', &
36 & attphy(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, 'PhyIS', &
41 & phyis(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, 'Vm_NO3', &
46 & vm_no3(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, 'PhyMRD', &
51 & phymrd(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, 'PhyMRN', &
56 & phymrn(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, 'K_NO3', &
61 & k_no3(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, 'Ivlev', &
66 & ivlev(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, 'ZooGR', &
71 & zoogr(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, 'ZooEED', &
76 & zooeed(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, 'ZooEEN', &
81 & zooeen(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, 'ZooMRD', &
86 & zoomrd(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, 'ZooMRN', &
91 & zoomrn(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, 'DetRR', &
96 & detrr(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, 'wPhy', &
101 & wphy(ng), (/0/), (/0/), &
102 & piofile = piofile)
103 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
104
105 CALL pio_netcdf_put_fvar (ng, model, ncname, 'wDet', &
106 & wdet(ng), (/0/), (/0/), &
107 & piofile = piofile)
108 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
109
110#ifdef IRON_LIMIT
111 CALL pio_netcdf_put_fvar (ng, model, ncname, 'T_Fe', &
112 & t_fe(ng), (/0/), (/0/), &
113 & piofile = piofile)
114 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
115
116 CALL pio_netcdf_put_fvar (ng, model, ncname, 'A_Fe', &
117 & a_fe(ng), (/0/), (/0/), &
118 & piofile = piofile)
119 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
120
121 CALL pio_netcdf_put_fvar (ng, model, ncname, 'B_Fe', &
122 & b_fe(ng), (/0/), (/0/), &
123 & piofile = piofile)
124 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
125
126 CALL pio_netcdf_put_fvar (ng, model, ncname, 'K_FeC', &
127 & k_fec(ng), (/0/), (/0/), &
128 & piofile = piofile)
129 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
130
131 CALL pio_netcdf_put_fvar (ng, model, ncname, 'FeRR', &
132 & ferr(ng), (/0/), (/0/), &
133 & piofile = piofile)
134 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
135
136# ifdef IRON_RELAX
137 CALL pio_netcdf_put_fvar (ng, model, ncname, 'Fe_Hmin', &
138 & fehmin(ng), (/0/), (/0/), &
139 & piofile = piofile)
140 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
141
142 CALL pio_netcdf_put_fvar (ng, model, ncname, 'Fe_NudgTime', &
143 & fenudgtime(ng), (/0/), (/0/), &
144 & piofile = piofile)
145 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
146
147 CALL pio_netcdf_put_fvar (ng, model, ncname, 'Fe_max', &
148 & femax(ng), (/0/), (/0/), &
149 & piofile = piofile)
150 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
151# endif
152#endif
subroutine output(ng)
Definition output.F:4