/[MITgcm]/MITgcm/pkg/monitor/mon_advcflw2.F
ViewVC logotype

Diff of /MITgcm/pkg/monitor/mon_advcflw2.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by jmc, Tue Jul 3 21:34:52 2001 UTC revision 1.3 by edhill, Sat Apr 3 04:57:11 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "MONITOR_OPTIONS.h"
5    
6    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    CBOP 0
8    C     !ROUTINE: MON_ADVCFLW2
9    
10    C     !INTERFACE:
11        SUBROUTINE MON_ADVCFLW2(        SUBROUTINE MON_ADVCFLW2(
12       I                label, W, rHFac, rDrF, dT,       I     label, W, rHFac, rDrF, dT,
13       I                myThid )       I     myThid )
14  C     /==========================================================\  
15  C     | SUBROUTINE MON_ADVCFLW2                                  |  C     !DESCRIPTION:
16  C     | o Calculates maximum CFL number in vertical              |  C     Calculates maximum CFL number in the vertical relevant for tracer
17  C     |   relevant for tracer Adv. Pb. with Partial Cell         |  C     Adv. Pb. with Partial Cell.
 C     |==========================================================|  
 C     \==========================================================/  
       IMPLICIT NONE  
18    
19  C     === Global data ===  C     !USES:
20          IMPLICIT NONE
21  #include "SIZE.h"  #include "SIZE.h"
22  #include "EEPARAMS.h"  #include "EEPARAMS.h"
23  #include "MONITOR.h"  #include "MONITOR.h"
24    
25  C     === Routine arguments ===  C     !INPUT PARAMETERS:
26        CHARACTER*(*) label        CHARACTER*(*) label
27        _RL     W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL     W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
28        _RS rHFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RS rHFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
29        _RS rDrF(Nr)        _RS rDrF(Nr)
30        _RL dT        _RL dT
31        INTEGER myThid        INTEGER myThid
32    CEOP
33    
34  C     === Local variables ====  C     !LOCAL VARIABLES:
35        INTEGER bi,bj,I,J,K        INTEGER bi,bj,I,J,K
36        _RL tmpVal,theMax        _RL tmpVal,theMax
37    
# Line 53  C     === Local variables ==== Line 57  C     === Local variables ====
57    
58        RETURN        RETURN
59        END        END
60    
61    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22