--- MITgcm_contrib/plumes/plumes_com.h 2004/05/05 18:19:35 1.1 +++ MITgcm_contrib/plumes/plumes_com.h 2004/05/13 22:20:26 1.2 @@ -1,30 +1,22 @@ - -C The plumes state uses the dynamics dimensions in the vertical -C and its own dimensions in the horizontal c c Plumes State Common - State variables on plumes grid c ---------------------------------------------------------------------- - common /plumes_state/ uplume,vplume,thplume,splume + common /plumes_state/ uplume,thplume - _RL uplume(Nxplumes,Nyplumes,Nr,Nsx,Nsy) - _RL vplume(Nxplumes,Nyplumes,Nr,Nsx,Nsy) - _RL thplume(Nxplumes,Nyplumes,Nr,Nsx,Nsy) - _RL splume(Nxplumes,Nyplumes,Nr,Nsx,Nsy) + _RL uplume(sNx,sNy,Nhplume,Nrplume,Nsx) + _RL thplume(sNx,sNy,Nhplume,Nrplume,Nsx) c Plumes Tendency Common - Changes in state variables due to plumes c ---------------------------------------------------------------------- - common /plumes_tendency/ duplume,dvplume,dthplume,dsplume + common /plumes_tendency/ duplume,dthplume - _RL duplume(Nxplumes,Nyplumes,Nr,Nsx,Nsy) - _RL dvplume(Nxplumes,Nyplumes,Nr,Nsx,Nsy) - _RL dthplume(Nxplumes,Nyplumes,Nr,Nsx,Nsy) - _RL dsplume(Nxplumes,Nyplumes,Nr,Nsx,Nsy) + _RL duplume(sNx,sNy,Nhplume,Nrplume,Nsx) + _RL dthplume(sNx,sNy,Nhplume,Nrplume,Nsx) c Plumes Exports Common - plumes variables on other grids for export c ---------------------------------------------------------------------- - common /plumes_exports/ guplume,gvplume,gthplume,gsplume + common /plumes_exports/ guplume,gvplume,gthplume _RL guplume(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) _RL gvplume(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) _RL gthplume(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) - _RL gsplume(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy)