329 |
C diagnostics etc.. As such xc is in m for cartesian |
C diagnostics etc.. As such xc is in m for cartesian |
330 |
C coordinates but degrees for spherical polar. |
C coordinates but degrees for spherical polar. |
331 |
C yC - Y-coordinate of center of cell f[X,Y]. |
C yC - Y-coordinate of center of cell f[X,Y]. |
332 |
|
C xC0, yC0 - West edge x coord ( metres or degrees ) |
333 |
|
C South edge y coord ( metres or degrees ) |
334 |
C zA - Z-face are f[X,Y] (m^2). |
C zA - Z-face are f[X,Y] (m^2). |
335 |
C Note: In a cartesian framework zA is simply dx*dy, |
C Note: In a cartesian framework zA is simply dx*dy, |
336 |
C however we use zA to allow for non-globally |
C however we use zA to allow for non-globally |
338 |
C metric terms). |
C metric terms). |
339 |
C zC - Z-coordinate of center of cell f[Z] |
C zC - Z-coordinate of center of cell f[Z] |
340 |
C zFace - Z-coordinate of face of cell f[Z] (Pa). |
C zFace - Z-coordinate of face of cell f[Z] (Pa). |
341 |
|
C tanPhiAtU - tan of the latitude at U point. Used for spherical polar |
342 |
|
C metric term in U equation. |
343 |
|
C tanPhiAtV - tan of the latitude at V point. Used for spherical polar |
344 |
|
C metric term in V equation. |
345 |
COMMON /GRID_R/ |
COMMON /GRID_R/ |
346 |
& dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU,dzC,dzF, |
& dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU,dzC,dzF, |
347 |
& H,HFacC,HFacW,HFacS, |
& H,HFacC,HFacW,HFacS, |
348 |
& rdxC,rdxF,rdxG,rdxV,rdyC,rdyF,rdyG,rdyU,rdzC,rdzF, |
& rdxC,rdxF,rdxG,rdxV,rdyC,rdyF,rdyG,rdyU,rdzC,rdzF, |
349 |
& rH, rhFacC,rhFacW,rhFacS, |
& rH, rhFacC,rhFacW,rhFacS, |
350 |
& saFac,xC,yC,zA,zC,zFace, |
& saFac,xC,yC,zA,zC,zFace, |
351 |
& maskW,maskS |
& yC0, xC0, |
352 |
_RS dxC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
& maskW,maskS, |
353 |
_RS dxF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
& tanPhiAtU, tanPhiAtV |
354 |
_RS dxG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS dxC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
355 |
_RS dxV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS dxF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
356 |
_RS dyC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS dxG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
357 |
_RS dyF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS dxV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
358 |
_RS dyG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS dyC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
359 |
_RS dyU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS dyF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
360 |
_RS dzC (1:Nz) |
_RS dyG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
361 |
_RS dzF (1:Nz) |
_RS dyU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
362 |
_RS H (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS dzC (1:Nz) |
363 |
_RS HFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy) |
_RS dzF (1:Nz) |
364 |
_RS HFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy) |
_RS H (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
365 |
_RS HFacS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy) |
_RS HFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy) |
366 |
_RS rdxC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS HFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy) |
367 |
_RS rdxF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS HFacS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy) |
368 |
_RS rdxG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS rdxC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
369 |
_RS rdxV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS rdxF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
370 |
_RS rdyC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS rdxG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
371 |
_RS rdyF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS rdxV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
372 |
_RS rdyG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS rdyC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
373 |
_RS rdyU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS rdyF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
374 |
_RS rdzC (1:Nz) |
_RS rdyG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
375 |
_RS rdzF (1:Nz) |
_RS rdyU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
376 |
_RS rh (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS rdzC (1:Nz) |
377 |
_RS rhFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy) |
_RS rdzF (1:Nz) |
378 |
_RS rhFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy) |
_RS rh (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
379 |
_RS rhFacS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy) |
_RS rhFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy) |
380 |
_RS saFac (1:Nz) |
_RS rhFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy) |
381 |
_RS xC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS rhFacS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy) |
382 |
_RS yC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS saFac (1:Nz) |
383 |
_RS zA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS xC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
384 |
_RS zC (1:Nz) |
_RS xC0 |
385 |
_RS zFace (1:Nz+1) |
_RS yC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
386 |
_RS maskW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy) |
_RS yC0 |
387 |
_RS maskS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy) |
_RS zA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
388 |
|
_RS zC (1:Nz) |
389 |
|
_RS zFace (1:Nz+1) |
390 |
|
_RS maskW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy) |
391 |
|
_RS maskS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy) |
392 |
|
_RS tanPhiAtU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
393 |
|
_RS tanPhiAtV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
394 |
|
|
395 |
|
|
396 |
C-- COMMON /GRID_I/ Integer valued grid defining variables |
C-- COMMON /GRID_I/ Integer valued grid defining variables |