ROMS
Loading...
Searching...
No Matches
npzd_Powell_wrt.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 powell et al. (2006) ecosystem model input parameters into **
10** output netcdf files. it is included in routine "wrt_info.F". **
11** **
12************************************************************************
13*/
14
15!
16! Write out NPZD (Powell et al., 2006) biological model parameters.
17!
18 CALL netcdf_put_ivar (ng, model, ncname, 'BioIter', &
19 & bioiter(ng), (/0/), (/0/), &
20 & ncid = ncid)
21 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
22
23 CALL netcdf_put_fvar (ng, model, ncname, 'AttSW', &
24 & attsw(ng), (/0/), (/0/), &
25 & ncid = ncid)
26 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
27
28 CALL netcdf_put_fvar (ng, model, ncname, 'AttPhy', &
29 & attphy(ng), (/0/), (/0/), &
30 & ncid = ncid)
31 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
32
33 CALL netcdf_put_fvar (ng, model, ncname, 'PhyIS', &
34 & phyis(ng), (/0/), (/0/), &
35 & ncid = ncid)
36 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
37
38 CALL netcdf_put_fvar (ng, model, ncname, 'Vm_NO3', &
39 & vm_no3(ng), (/0/), (/0/), &
40 & ncid = ncid)
41 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
42
43 CALL netcdf_put_fvar (ng, model, ncname, 'PhyMRD', &
44 & phymrd(ng), (/0/), (/0/), &
45 & ncid = ncid)
46 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
47
48 CALL netcdf_put_fvar (ng, model, ncname, 'PhyMRN', &
49 & phymrn(ng), (/0/), (/0/), &
50 & ncid = ncid)
51 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
52
53 CALL netcdf_put_fvar (ng, model, ncname, 'K_NO3', &
54 & k_no3(ng), (/0/), (/0/), &
55 & ncid = ncid)
56 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
57
58 CALL netcdf_put_fvar (ng, model, ncname, 'Ivlev', &
59 & ivlev(ng), (/0/), (/0/), &
60 & ncid = ncid)
61 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
62
63 CALL netcdf_put_fvar (ng, model, ncname, 'ZooGR', &
64 & zoogr(ng), (/0/), (/0/), &
65 & ncid = ncid)
66 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
67
68 CALL netcdf_put_fvar (ng, model, ncname, 'ZooEED', &
69 & zooeed(ng), (/0/), (/0/), &
70 & ncid = ncid)
71 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
72
73 CALL netcdf_put_fvar (ng, model, ncname, 'ZooEEN', &
74 & zooeen(ng), (/0/), (/0/), &
75 & ncid = ncid)
76 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
77
78 CALL netcdf_put_fvar (ng, model, ncname, 'ZooMRD', &
79 & zoomrd(ng), (/0/), (/0/), &
80 & ncid = ncid)
81 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
82
83 CALL netcdf_put_fvar (ng, model, ncname, 'ZooMRN', &
84 & zoomrn(ng), (/0/), (/0/), &
85 & ncid = ncid)
86 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
87
88 CALL netcdf_put_fvar (ng, model, ncname, 'DetRR', &
89 & detrr(ng), (/0/), (/0/), &
90 & ncid = ncid)
91 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
92
93 CALL netcdf_put_fvar (ng, model, ncname, 'wPhy', &
94 & wphy(ng), (/0/), (/0/), &
95 & ncid = ncid)
96 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
97
98 CALL netcdf_put_fvar (ng, model, ncname, 'wDet', &
99 & wdet(ng), (/0/), (/0/), &
100 & ncid = ncid)
101 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
output
subroutine output(ng)
Definition output.F:4