pkg/bulk_force/BULKF.h

7753507405 Curt*0001 #ifdef ALLOW_BULK_FORCE
679d149d01 Jean*0002 C     !ROUTINE: BULKF.h
                0003 C -------------------------------
                0004 C   BULKF.h
                0005 C  variable for forcing using bulk formula
                0006 C -------------------------------
                0007 C   FORCING FIELD VARIABLES
                0008 C- Mandatory:
                0009 C  tair      :: air temperature (K)
9923d1c9c0 Jean*0010 C  qair      :: specific humidity at surface (kg/kg)
                0011 C  rain      :: total precipitation (= rain + snow) (m/s), (>0: rain)
679d149d01 Jean*0012 C  solar     :: downward shortwave radiation (W/m^2), (>0: downward)
                0013 C  flwdwn    :: downward longwave radiation  (W/m^2), (>0: downward)
                0014 C  wspeed    :: wind speed (m/s)
                0015 C- Optional:
                0016 C  uwind     :: zonal wind speed (m/s),      at cell center (A-grid)
                0017 C  vwind     :: meridional wind speed (m/s), at cell center (A-grid)
9923d1c9c0 Jean*0018 C  runoff    :: freshwater runoff (m/s)
8d92b2862f Jean*0019 C  Qnetch    :: net heat flux (cheating)
                0020 C  EmPch     :: E-P (cheating)
679d149d01 Jean*0021 C  cloud     :: fraction sky covered in cloud
                0022 C  thAir     :: Air potential temp. in the BL [K]
                0023 C                (used in AIM-formula stability function)
                0024
                0025       COMMON /BULKF_FFIELDS/
                0026      &       Tair, Qair, Rain, Solar, flwdwn,
                0027      &       wspeed, uwind, vwind, runoff,
8d92b2862f Jean*0028      &       Qnetch, EmPch, cloud
679d149d01 Jean*0029 #ifdef ALLOW_FORMULA_AIM
                0030      &     , thAir
                0031 #endif
7753507405 Curt*0032
                0033       _RL  Tair  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0034       _RL  Qair  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0035       _RL  Rain  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0036       _RL  Solar (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
679d149d01 Jean*0037       _RL flwdwn (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0038       _RL wspeed (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0039       _RL  uwind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0040       _RL  vwind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0041       _RL runoff (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
8d92b2862f Jean*0042       _RL Qnetch (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0043       _RL EmPch  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
679d149d01 Jean*0044       _RL cloud  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0045 #ifdef ALLOW_FORMULA_AIM
                0046       _RL thAir  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0047 #endif
f4245d1665 Curt*0048
6a1d3c464b Jean*0049 #endif /* ALLOW_BULK_FORCE */