SUBROUTINE DGRMLT

 -----------------------------------------------------------------
 What it does
 ============

COMPUTE DIABATIC TENDENCIES IN GRID POINT SPACE FOR PRESENT LAT. ACCUMULATE TIME AVERAGES FOR PRINTED OUTPUT AND HISTORY ASSUMES OUTPUT AND HISTORY TIMESTEPS ARE SYNCHRONISED

 -----------------------------------------------------------------
 Structure of Routine
 ====================

      LSUM=.FALSE.
      LWRITE=.FALSE.
      IF(KOUTH.GE.1.AND.KOUTH.LE.KOUNTH) LSUM=.TRUE.
      IF(KOUTH.EQ.KOUNTH) LWRITE=.TRUE.

• IF(LSUM) THEN set value of lots of variables beginning with `a'.
• set lots of array to zero
• zero more arrays and some further calculations
• IF (LCSFCT) THEN
  • IF (.NOT.LPERPET.OR.IFIRST.EQ.1) CALL SFCT
  • IF (JH.EQ.JG) IFIRST=0

          if (LOLDBL) then
             if (LBL) call BLAYER
          else
             if (LBL) call BLSURF
          endif
          IF(LVD) CALL VDIFF
          IF(LCR) CALL CONVEC
          IF(LLR) CALL LSCRN
          IF(LRD) CALL RADN(TROPHT)
          if (LBL.AND.(.NOT.LOLDBL)) CALL SURFM
    

  • some calculations
• lots more calculations

 -----------------------------------------------------------------
 Program calls
 ====================

Called by	Calls
IGCM3 (summ)	BLAYER (summ) BLSURF (summ) CONVEC (summ) LSCRN (summ) RADN (summ) SFCT (summ) SURFM (summ) VDIFF (summ)

 -----------------------------------------------------------------

Return to IGCM home page