/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_mnc_init.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/darwin_mnc_init.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by jahn, Mon Jul 30 15:21:51 2012 UTC revision 1.4 by jahn, Thu Aug 23 21:47:27 2012 UTC
# Line 136  cbenw limitation diagnostics Line 136  cbenw limitation diagnostics
136            ENDDO            ENDDO
137            WRITE(name,'(a,i2.2)') 'dar_Ed',ii            WRITE(name,'(a,i2.2)') 'dar_Ed',ii
138            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
139            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','W/m^2', myThid)
140            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
141         &     'direct downwelling irradiance at top of layer', myThid)
142            WRITE(name,'(a,i2.2)') 'dar_Es',ii            WRITE(name,'(a,i2.2)') 'dar_Es',ii
143            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
144            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','W/m^2', myThid)
145            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
146         &     'diffuse downwelling irradiance at top of layer', myThid)
147            WRITE(name,'(a,i2.2)') 'dar_Eu',ii            WRITE(name,'(a,i2.2)') 'dar_Eu',ii
148            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
149            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','W/m^2', myThid)
150            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
151         &     'upwelling irradiance just above top of layer', myThid)
152            WRITE(name,'(a,i2.2)') 'dar_Eutop',ii            WRITE(name,'(a,i2.2)') 'dar_Eutop',ii
153            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
154            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','W/m^2', myThid)
155            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
156         &     'upwelling irradiance just below top of layer', myThid)
157        enddo        enddo
158  #endif  #endif
159    
# Line 160  cbenw limitation diagnostics Line 164  cbenw limitation diagnostics
164            ENDDO            ENDDO
165            WRITE(name,'(a,i2.2)') 'dar_c1_',ii            WRITE(name,'(a,i2.2)') 'dar_c1_',ii
166            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
167            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','W/m^2', myThid)
168            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
169         &     'amplitude of downward increasing mode', myThid)
170            WRITE(name,'(a,i2.2)') 'dar_c2_',ii            WRITE(name,'(a,i2.2)') 'dar_c2_',ii
171            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
172            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','W/m^2', myThid)
173            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
174         &     'amplitude of downward decreasing mode', myThid)
175        enddo        enddo
176  #endif  #endif
177  #ifdef DAR_DIAG_ABSORP  #ifdef DAR_DIAG_ABSORP
# Line 175  cbenw limitation diagnostics Line 181  cbenw limitation diagnostics
181            ENDDO            ENDDO
182            WRITE(name,'(a,i2.2)') 'dar_a',ii            WRITE(name,'(a,i2.2)') 'dar_a',ii
183            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
184            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','1/m', myThid)
185            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
186         &     'total absorption coefficient', myThid)
187        enddo        enddo
188  #endif  #endif
189  #ifdef DAR_DIAG_SCATTER  #ifdef DAR_DIAG_SCATTER
# Line 186  cbenw limitation diagnostics Line 193  cbenw limitation diagnostics
193            ENDDO            ENDDO
194            WRITE(name,'(a,i2.2)') 'dar_bt',ii            WRITE(name,'(a,i2.2)') 'dar_bt',ii
195            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
196            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','1/m', myThid)
197            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
198         &     'total scattering coefficient', myThid)
199            WRITE(name,'(a,i2.2)') 'dar_bb',ii            WRITE(name,'(a,i2.2)') 'dar_bb',ii
200            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
201            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','1/m', myThid)
202            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
203         &     'total backscattering coefficient', myThid)
204        enddo        enddo
205  #endif  #endif
206  #ifdef DAR_DIAG_PART_SCATTER  #ifdef DAR_DIAG_PART_SCATTER
# Line 201  cbenw limitation diagnostics Line 210  cbenw limitation diagnostics
210            ENDDO            ENDDO
211            WRITE(name,'(a,i2.2)') 'dar_apart',ii            WRITE(name,'(a,i2.2)') 'dar_apart',ii
212            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
213            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','1/m', myThid)
214            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
215         &     'absorption coefficient due to particles', myThid)
216            WRITE(name,'(a,i2.2)') 'dar_btpart',ii            WRITE(name,'(a,i2.2)') 'dar_btpart',ii
217            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
218            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','1/m', myThid)
219            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
220         &     'scattering coefficient due to particles', myThid)
221            WRITE(name,'(a,i2.2)') 'dar_bbpart',ii            WRITE(name,'(a,i2.2)') 'dar_bbpart',ii
222            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
223            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','1/m', myThid)
224            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
225         &     'backscattering coefficient due to particles', myThid)
226        enddo        enddo
227  #endif  #endif
228  #ifdef DAR_RADTRANS  #ifdef DAR_RADTRANS
# Line 220  cbenw limitation diagnostics Line 232  cbenw limitation diagnostics
232        WRITE(name,'(a)') 'dar_rmud'        WRITE(name,'(a)') 'dar_rmud'
233        CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__-__t',3,4,myThid)
234        CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)        CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
235        CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)        CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
236         & 'inverse cosine of under-water solar zenith angle', myThid)
237  #endif  #endif
238    
239  c ANNA_TAVE  c ANNA_TAVE
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22