ROMS
Loading...
Searching...
No Matches
oyster_floats_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 oyster floats model input parameters in output netcdf **
10** files. it is included in routine "wrt_info.F". **
11** **
12************************************************************************
13*/
14
15!
16! Write out oyster float model (Dekshenieks et al. 1993, 1996, 1997;
17! Narvaez et al. 2012a,b).
18!
19 CALL netcdf_put_fvar (ng, model, ncname, 'Larvae_GR0', &
20 & larvae_gr0(ng), (/0/), (/0/), &
21 & ncid = ncid)
22 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
23
24 CALL netcdf_put_fvar (ng, model, ncname, 'Larvae_size0', &
25 & larvae_size0(ng), (/0/), (/0/), &
26 & ncid = ncid)
27 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
28
29 CALL netcdf_put_fvar (ng, model, ncname, 'food_supply', &
30 & food_supply(ng), (/0/), (/0/), &
31 & ncid = ncid)
32 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
33
34 CALL netcdf_put_fvar (ng, model, ncname, 'settle_size', &
35 & settle_size(ng), (/0/), (/0/), &
36 & ncid = ncid)
37 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
38!
39! Turbidity effect parameters on planktonic oyster larvae growth.
40!
41 CALL netcdf_put_fvar (ng, model, ncname, 'turb_ambi', &
42 & turb_ambi(ng), (/0/), (/0/), &
43 & ncid = ncid)
44 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
45
46 CALL netcdf_put_fvar (ng, model, ncname, 'turb_axis', &
47 & turb_axis(ng), (/0/), (/0/), &
48 & ncid = ncid)
49 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
50
51 CALL netcdf_put_fvar (ng, model, ncname, 'turb_base', &
52 & turb_base(ng), (/0/), (/0/), &
53 & ncid = ncid)
54 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
55
56 CALL netcdf_put_fvar (ng, model, ncname, 'turb_crit', &
57 & turb_crit(ng), (/0/), (/0/), &
58 & ncid = ncid)
59 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
60
61 CALL netcdf_put_fvar (ng, model, ncname, 'turb_mean', &
62 & turb_mean(ng), (/0/), (/0/), &
63 & ncid = ncid)
64 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
65
66 CALL netcdf_put_fvar (ng, model, ncname, 'turb_rate', &
67 & turb_rate(ng), (/0/), (/0/), &
68 & ncid = ncid)
69 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
70
71 CALL netcdf_put_fvar (ng, model, ncname, 'turb_size', &
72 & turb_size(ng), (/0/), (/0/), &
73 & ncid = ncid)
74 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
75
76 CALL netcdf_put_fvar (ng, model, ncname, 'turb_slop', &
77 & turb_slop(ng), (/0/), (/0/), &
78 & ncid = ncid)
79 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
80!
81! Planktonic oyster larvae vertical migration (swimming) parameters.
82!
83 CALL netcdf_put_fvar (ng, model, ncname, 'slope_Sdec', &
84 & slope_sdec(ng), (/0/), (/0/), &
85 & ncid = ncid)
86 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
87
88 CALL netcdf_put_fvar (ng, model, ncname, 'slope_Sinc', &
89 & slope_sinc(ng), (/0/), (/0/), &
90 & ncid = ncid)
91 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
92
93 CALL netcdf_put_fvar (ng, model, ncname, 'swim_Sdec', &
94 & swim_sdec(ng), (/0/), (/0/), &
95 & ncid = ncid)
96 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
97
98 CALL netcdf_put_fvar (ng, model, ncname, 'swim_Sinc', &
99 & swim_sinc(ng), (/0/), (/0/), &
100 & ncid = ncid)
101 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
102
103 CALL netcdf_put_fvar (ng, model, ncname, 'swim_Tmin', &
104 & swim_tmin(ng), (/0/), (/0/), &
105 & ncid = ncid)
106 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
107
108 CALL netcdf_put_fvar (ng, model, ncname, 'swim_Tmax', &
109 & swim_tmax(ng), (/0/), (/0/), &
110 & ncid = ncid)
111 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
112!
113! Planktonic larvae sinking parameters.
114!
115 CALL netcdf_put_fvar (ng, model, ncname, 'sink_base', &
116 & sink_base(ng), (/0/), (/0/), &
117 & ncid = ncid)
118 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
119
120 CALL netcdf_put_fvar (ng, model, ncname, 'sink_rate', &
121 & sink_rate(ng), (/0/), (/0/), &
122 & ncid = ncid)
123 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
124
125 CALL netcdf_put_fvar (ng, model, ncname, 'sink_size', &
126 & sink_size(ng), (/0/), (/0/), &
127 & ncid = ncid)
128 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
output
subroutine output(ng)
Definition output.F:4