/[MITgcm]/MITgcm/model/src/ini_tr1.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_tr1.F

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

revision 1.2 by cnh, Wed Sep 26 18:09:16 2001 UTC revision 1.3 by jmc, Thu Jul 18 23:17:37 2002 UTC
# Line 25  C     === Global variables === Line 25  C     === Global variables ===
25  #include "PARAMS.h"  #include "PARAMS.h"
26  #include "GRID.h"  #include "GRID.h"
27  #include "DYNVARS.h"  #include "DYNVARS.h"
28    #ifdef ALLOW_PASSIVE_TRACER
29  #include "TR1.h"  #include "TR1.h"
30    #endif
31    
32  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
33  C     == Routine arguments ==  C     == Routine arguments ==
34  C     myThid -  Number of this instance of INI_TR1  C     myThid -  Number of this instance of INI_TR1
35        INTEGER myThid        INTEGER myThid
36    
37    #ifdef ALLOW_PASSIVE_TRACER
38    
39  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
40  C     == Local variables ==  C     == Local variables ==
41  C     iC, jC - Center of domain  C     iC, jC - Center of domain
# Line 89  C Line 93  C
93        CALL PLOT_FIELD_XYZRL( tr1, 'Initial TR1' ,        CALL PLOT_FIELD_XYZRL( tr1, 'Initial TR1' ,
94       &                       Nr, 1, myThid )       &                       Nr, 1, myThid )
95    
96    #endif /*  ALLOW_PASSIVE_TRACER */
97    
98        RETURN        RETURN
99        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22