pkg/bbl/BBL.h

53b68b7823 Dimi*0001 #ifdef ALLOW_BBL
                0002
5f5cc705f4 Dimi*0003 C     bbl_wvel    :: default vertical entrainment velocity (m/s)
                0004 C     bbl_hvvel   :: default horizontal velocity of BBL (m/s)
                0005 C     bbl_initEta :: default initial thickness of BBL (m)
                0006       _RL                 bbl_wvel, bbl_hvel, bbl_initEta
                0007       COMMON /BBL_PARM_R/ bbl_wvel, bbl_hvel, bbl_initEta
53b68b7823 Dimi*0008
                0009 C     file names for initial conditions:
                0010       CHARACTER*(MAX_LEN_FNAM) bbl_thetaFile
                0011       CHARACTER*(MAX_LEN_FNAM) bbl_saltFile
                0012       CHARACTER*(MAX_LEN_FNAM) bbl_etaFile
                0013       COMMON /BBL_PARM_C/ bbl_thetaFile, bbl_saltFile, bbl_etaFile
                0014
                0015 C     BBL 2-dim. fields
15338fa568 Dimi*0016       _RL bbl_theta (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0017       _RL bbl_salt  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0018       _RL bbl_eta   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0019       _RL bbl_rho_nr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0020       COMMON /BBL_STATE_2D/ bbl_theta, bbl_salt, bbl_eta, bbl_rho_nr
53b68b7823 Dimi*0021
                0022 C     BBL tendency terms
                0023       _RL bbl_TendTheta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0024       _RL bbl_TendSalt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0025       COMMON /BBL_TENDENCY/ bbl_TendTheta, bbl_TendSalt
                0026
                0027 #endif /* ALLOW_BBL */
                0028
                0029 CEH3 ;;; Local Variables: ***
                0030 CEH3 ;;; mode:fortran ***
                0031 CEH3 ;;; End: ***