*DECK PHYSC
      SUBROUTINE PHYSC
C
C**** *PHYSC* - PHYSICAL TENDENCIES (Sample of code only)
C
C     PURPOSE.
C     --------
C
C            THIS SUBROUTINE CONTROLS THE CALLS TO THE VARIOUS
C     PHYSICAL SUBROUTINES.
C
C     EXTERNALS.
C     ----------
C
C     *ALLOCA*   ALLOCATE STORAGE.
C     *LOCATE*   LOCATE STORAGE.
C     *PRES*     COMPUTES HALF LEVEL PRESSURES.
C     *PRESF*    COMPUTES FULL LEVEL PRESSURES.
C     *BMINT*    BETTS-MILLER CONVECTIVE ADJUSTMENT SCHEME.
C
*CALL PARAM
*CALL COMCTL
*CALL COMPSW
      POINTER(IAPHM1,APHM1(NLP2,NLEVP1)),
     S       (IALPSE,ALPSE(NLP2)),
     S       (IAPHP1,APHP1(NLP2,NLEVP1)),
     S       (IAPP1,APP1(NLP2,NLEV)),
     S       (IAPM1,APM1(NLP2,NLEV)),
     S       (ILOLAND,LOLAND(NLP2))
C
      LOGICAL LOLAND
C
C     ----------------------------------------------------------------
C
C*        2.    LOCATE AND ALLOCATE STORAGE.
C               ------ --- -------- --------
C
      CALL LOCATE(ISLMM,'SLMM',IGPTYPE)
      CALL LOCATE(IALPSM1,'ALPSM1',IGPTYPE)
      CALL LOCATE(IAPHM1,'APHM1',IGPTYPE)
      CALL LOCATE(IALPSE,'ALPSE',IGPTYPE)
C
      CALL ALLOCA(IAPM1,NLP2*NLEV,'APM1',IGPTYPE)
      CALL ALLOCA(ILOLAND,NLP2,'LOLAND',IGPTYPE)
C
C     ------------------------------------------------------------
C
C*        3.    COMPUTE SOME FIELDS NEEDED BY THE PHYSICAL ROUTINES.
C               ------- ---- ------ ------ -- --- -------- ---------
C
  300 CONTINUE
C
C*        3.3   COMPUTE PRESSURE AT FULL LEVELS AT T-DT
C
      CALL PRESF(APM1,NLP2,APHM1,NLON)
C
C*        3.6   COMPUTE LOGICAL MASK FOR LAND.
C
  360 CONTINUE
C
      DO 365 JLON=1,NLON
      LOLAND(JLON)=SLMM(JLON).GT.0.5
  365 CONTINUE
C
C     ----------------------------------------------------------------
C
C*        4.    RADIATION PARAMETERISATION.
C               --------- -----------------
C
C     -----------------------------------------------------------
C
C*        5.    VERTICAL EXCHANGE OF U,V,T,Q BY TURBULENCE.
C               -------- -------- -- - - - - -- -----------
C
C     ------------------------------------------------------------
C
C        ***  GRAVITY WAVE DRAG PARAMETERISATION  ***
C
C     ------------------------------------------------------------
C
C*        6.    CONVECTION PARAMETERISATION.
C               ---------- -----------------
C
  600 CONTINUE
C
C*        6.1    ALLOCATE SOME SPACE.
C
  610 CONTINUE
C
      CALL ALLOCA(IAPHP1,NLP2*NLEVP1,'APHP1',IGPTYPE)
      CALL ALLOCA(IAPP1,NLP2*NLEV,'APP1',IGPTYPE)
C
C*        6.2    COMPUTE PRESSURE AT FULL AND HALF LEVELS AT T+DT
C                FROM LN(SURFACE PRESSURE).
C
  620 CONTINUE
C
      ZTWODT=TWODT
      IF(NSTEP.EQ.NSTART) ZTWODT=ZTWODT*.5
      DO 622 JLON=1,NLON
      APHP1(JLON,NLEVP1)=EXP(ALPSM1(JLON)+ZTWODT*ALPSE(JLON))
  622 CONTINUE
C
      CALL PRES(APHP1,NLP2,APHP1(1,NLEVP1),NLON)
C
      CALL PRESF(APP1,NLP2,APHP1,NLON)
C
C*        6.3    COMPUTE *T* AND *Q* TENDENCIES FROM
C                DEEP AND SHALLOW MOIST CONVECTION.
C
  630 CONTINUE
C
C                BETTS-MILLER CONVECTIVE ADJUSTMENT SCHEME.
C
      IF (LBMADJ) CALL BMINT
C
C     ------------------------------------------------------------
C
C*        7.    LARGE SCALE WATER PHASE CHANGES AND ELIMINATION OF
C               ----- ----- ----- ----- ------- --- ----------- --
C               NEGATIVE SPECIFIC HUMIDITIES.
C               -------- -------- -----------
C
C     ----------------------------------------------------------------
C
C*        8.    COMPUTATION OF NEW SURFACE VALUES.
C               ----------- -- --- ------- -------
C
C     ------------------------------------------------------------
C
      RETURN
      END