/[MITgcm]/MITgcm/pkg/gchem/gchem_mon_print.F
ViewVC logotype

Diff of /MITgcm/pkg/gchem/gchem_mon_print.F

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

revision 1.1 by stephd, Wed Jun 25 21:00:37 2003 UTC revision 1.2 by stephd, Mon Oct 6 20:04:29 2003 UTC
# Line 31  C     === Routine arguments === Line 31  C     === Routine arguments ===
31        CHARACTER*(*) arrName        CHARACTER*(*) arrName
32        INTEGER myThid        INTEGER myThid
33    
34    #ifdef ALLOW_PTRACERS
35    #ifdef ALLOW_GCHEM
36    
37  C     === Local variables ====  C     === Local variables ====
38        _RL theMin        _RL theMin
39        _RL theMax        _RL theMax
# Line 50  C     === Local variables ==== Line 53  C     === Local variables ====
53        CALL MON_OUT_RL( arrName, theMin,  mon_foot_min  ,myThid)        CALL MON_OUT_RL( arrName, theMin,  mon_foot_min  ,myThid)
54        CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid)        CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid)
55    
56    #endif
57    #endif
58    
59        RETURN        RETURN
60        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22