/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_setunits.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_setunits.F

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

revision 1.2 by molod, Mon Mar 1 20:54:48 2004 UTC revision 1.4 by edhill, Tue Jul 6 03:55:53 2004 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4    #include "DIAG_OPTIONS.h"
5    
6        subroutine diagnostics_setunits (myThid, chardiag, diagunits)        subroutine diagnostics_setunits (myThid, chardiag, diagunits)
7  C***********************************************************************  C***********************************************************************
8  C  Purpose  C  Purpose
# Line 11  C     chardiag ... Character *8 expressi Line 16  C     chardiag ... Character *8 expressi
16  C     diagunits .. Character *16 expression for diag units  C     diagunits .. Character *16 expression for diag units
17  C***********************************************************************  C***********************************************************************
18         implicit none         implicit none
 #include "CPP_OPTIONS.h"  
19  #include "SIZE.h"  #include "SIZE.h"
20  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
21  #include "diagnostics.h"  #include "diagnostics.h"
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22