/[MITgcm]/MITgcm/pkg/frazil/frazil_diagnostics_init.F
ViewVC logotype

Diff of /MITgcm/pkg/frazil/frazil_diagnostics_init.F

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

revision 1.2 by dimitri, Sat Mar 3 16:04:38 2012 UTC revision 1.3 by dimitri, Sun Mar 4 23:11:20 2012 UTC
# Line 15  C     Initialize list of all available d Line 15  C     Initialize list of all available d
15    
16  C     !USES:  C     !USES:
17        IMPLICIT NONE        IMPLICIT NONE
 #include "EEPARAMS.h"  
 #include "SIZE.h"  
 #include "FRAZIL.h"  
18    
19  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
20  C     myThid ::  my Thread Id number  C     myThid :: my Thread Id number
21        INTEGER myThid        INTEGER myThid
22  CEOP  CEOP
23    
24  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
25    
26  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
 C     === Local variables ===  
27  C     diagNum   :: diagnostics number in the (long) list of available diag.  C     diagNum   :: diagnostics number in the (long) list of available diag.
28  C     diagMate  :: diag. mate number in the (long) list of available diag.  C     diagMate  :: diag. mate number in the (long) list of available diag.
29  C     diagName  :: local short name (8c) of a diagnostics  C     diagName  :: local short name (8c) of a diagnostics
# Line 41  C     diagTitle :: local string (80c): d Line 38  C     diagTitle :: local string (80c): d
38        CHARACTER*16  diagUnits        CHARACTER*16  diagUnits
39        CHARACTER*(80) diagTitle        CHARACTER*(80) diagTitle
40    
41  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|        diagName  = 'FrzForcT'
42          diagTitle = 'Frazil temperature forcing, > 0 increases theta'
43  c     IF ( useDiagnotics ) THEN        diagUnits = 'W/m^2           '
44          diagCode  = 'SM      MR      '
45          diagName  = 'FrzForcT'        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
46          diagTitle = 'Frazil temperature forcing, > 0 increases theta'       I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
         diagUnits = 'W/m^2           '  
         diagCode  = 'SM      MR      '  
         CALL DIAGNOSTICS_ADDTOLIST( diagNum,  
      I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )  
   
 c     ENDIF  
47    
48  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
49    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22