pkg/monitor/mon_advcflw.F

91672e10e3 Alis*0001 #include "MONITOR_OPTIONS.h"
dc684458c1 Alis*0002
7633b97660 Ed H*0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C     !ROUTINE: MON_ADVCFLW
                0006
                0007 C     !INTERFACE:
dc684458c1 Alis*0008       SUBROUTINE MON_ADVCFLW(
7633b97660 Ed H*0009      I     label, W, rDz, dT,
                0010      I     myThid )
                0011
                0012 C     !DESCRIPTION:
                0013 C     Calculates maximum CFL number in the vertical direction.
dc684458c1 Alis*0014
7633b97660 Ed H*0015 C     !USES:
                0016       IMPLICIT NONE
dc684458c1 Alis*0017 #include "SIZE.h"
                0018 #include "EEPARAMS.h"
1389d71047 Chri*0019 #include "MONITOR.h"
dc684458c1 Alis*0020
7633b97660 Ed H*0021 C     !INPUT PARAMETERS:
dc684458c1 Alis*0022       CHARACTER*(*) label
                0023       _RL W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0024       _RS rDz(Nr)
                0025       _RL dT
                0026       INTEGER myThid
7633b97660 Ed H*0027 CEOP
dc684458c1 Alis*0028
7633b97660 Ed H*0029 C     !LOCAL VARIABLES:
dc684458c1 Alis*0030       INTEGER bi,bj,I,J,K
                0031       _RL tmpVal,theMax
                0032
                0033       theMax=0.
                0034
                0035       DO bj=myByLo(myThid),myByHi(myThid)
                0036        DO bi=myBxLo(myThid),myBxHi(myThid)
                0037         DO K=1,Nr
                0038          DO J=1,sNy
                0039           DO I=1,sNx
                0040            tmpVal=abs(W(I,J,K,bi,bj))*rDz(K)*dT
                0041            theMax=max(theMax,tmpVal)
                0042           ENDDO
                0043          ENDDO
                0044         ENDDO
                0045        ENDDO
                0046       ENDDO
7163a40534 Jean*0047       _GLOBAL_MAX_RL(theMax,myThid)
dc684458c1 Alis*0048
67067d3ff1 Alis*0049       CALL MON_OUT_RL( label, theMax, mon_foot_max ,myThid)
dc684458c1 Alis*0050
                0051       RETURN
                0052       END
7633b97660 Ed H*0053
                0054 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|