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************************************************************************
9** writes npzd iron(fiechter, et al. 2009) ecosystem model input **
10** parameters into
output netcdf files. it is included in routine **
13************************************************************************
20 CALL pio_netcdf_put_ivar (ng, model, ncname,
'BioIter', &
21 & bioiter(ng), (/0/), (/0/), &
23 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
25 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PARfrac', &
26 & parfrac(ng), (/0/), (/0/), &
28 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
30 CALL pio_netcdf_put_fvar (ng, model, ncname,
'AttSW', &
31 & attsw(ng), (/0/), (/0/), &
33 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
35 CALL pio_netcdf_put_fvar (ng, model, ncname,
'AttPhy', &
36 & attphy(ng), (/0/), (/0/), &
38 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
40 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PhyIS', &
41 & phyis(ng), (/0/), (/0/), &
43 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
45 CALL pio_netcdf_put_fvar (ng, model, ncname,
'Vm_NO3', &
46 & vm_no3(ng), (/0/), (/0/), &
48 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
50 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PhyMRD', &
51 & phymrd(ng), (/0/), (/0/), &
53 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
55 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PhyMRN', &
56 & phymrn(ng), (/0/), (/0/), &
58 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
60 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_NO3', &
61 & k_no3(ng), (/0/), (/0/), &
63 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
65 CALL pio_netcdf_put_fvar (ng, model, ncname,
'Ivlev', &
66 & ivlev(ng), (/0/), (/0/), &
68 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
70 CALL pio_netcdf_put_fvar (ng, model, ncname,
'ZooGR', &
71 & zoogr(ng), (/0/), (/0/), &
73 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
75 CALL pio_netcdf_put_fvar (ng, model, ncname,
'ZooEED', &
76 & zooeed(ng), (/0/), (/0/), &
78 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
80 CALL pio_netcdf_put_fvar (ng, model, ncname,
'ZooEEN', &
81 & zooeen(ng), (/0/), (/0/), &
83 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
85 CALL pio_netcdf_put_fvar (ng, model, ncname,
'ZooMRD', &
86 & zoomrd(ng), (/0/), (/0/), &
88 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
90 CALL pio_netcdf_put_fvar (ng, model, ncname,
'ZooMRN', &
91 & zoomrn(ng), (/0/), (/0/), &
93 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
95 CALL pio_netcdf_put_fvar (ng, model, ncname,
'DetRR', &
96 & detrr(ng), (/0/), (/0/), &
98 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
100 CALL pio_netcdf_put_fvar (ng, model, ncname,
'wPhy', &
101 & wphy(ng), (/0/), (/0/), &
103 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
105 CALL pio_netcdf_put_fvar (ng, model, ncname,
'wDet', &
106 & wdet(ng), (/0/), (/0/), &
108 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
111 CALL pio_netcdf_put_fvar (ng, model, ncname,
'T_Fe', &
112 & t_fe(ng), (/0/), (/0/), &
114 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
116 CALL pio_netcdf_put_fvar (ng, model, ncname,
'A_Fe', &
117 & a_fe(ng), (/0/), (/0/), &
119 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
121 CALL pio_netcdf_put_fvar (ng, model, ncname,
'B_Fe', &
122 & b_fe(ng), (/0/), (/0/), &
124 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
126 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_FeC', &
127 & k_fec(ng), (/0/), (/0/), &
129 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
131 CALL pio_netcdf_put_fvar (ng, model, ncname,
'FeRR', &
132 & ferr(ng), (/0/), (/0/), &
134 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
137 CALL pio_netcdf_put_fvar (ng, model, ncname,
'Fe_Hmin', &
138 & fehmin(ng), (/0/), (/0/), &
140 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
142 CALL pio_netcdf_put_fvar (ng, model, ncname,
'Fe_NudgTime', &
143 & fenudgtime(ng), (/0/), (/0/), &
145 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
147 CALL pio_netcdf_put_fvar (ng, model, ncname,
'Fe_max', &
148 & femax(ng), (/0/), (/0/), &
150 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN