/[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.1 by heimbach, Fri Jul 13 14:26:57 2001 UTC revision 1.2 by cnh, Wed Sep 26 18:09:16 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CStartOfInterface  CBOP
7    C     !ROUTINE: INI_TR1
8    C     !INTERFACE:
9        SUBROUTINE INI_TR1( myThid )        SUBROUTINE INI_TR1( myThid )
10  C     /==========================================================\  C     !DESCRIPTION: \bv
11  C     | SUBROUTINE INI_TR1                                       |  C     *==========================================================*
12  C     | o Set initial tracer 1 distribution.                     |  C     | SUBROUTINE INI_TR1                                        
13  C     |==========================================================|  C     | o Set initial tracer 1 distribution.                      
14  C     | Passive tracers 1-N can be initialised so as to          |  C     *==========================================================*
15  C     | dye fluid.                                               |  C     | Passive tracers 1-N can be initialised so as to          
16  C     \==========================================================/  C     | dye fluid.                                                
17        IMPLICIT NONE  C     *==========================================================*
18    C     \ev
19    
20    C     !USES:
21          IMPLICIT NONE
22  C     === Global variables ===  C     === Global variables ===
23  #include "SIZE.h"  #include "SIZE.h"
24  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 22  C     === Global variables === Line 27  C     === Global variables ===
27  #include "DYNVARS.h"  #include "DYNVARS.h"
28  #include "TR1.h"  #include "TR1.h"
29    
30    C     !INPUT/OUTPUT PARAMETERS:
31  C     == Routine arguments ==  C     == Routine arguments ==
32  C     myThid -  Number of this instance of INI_TR1  C     myThid -  Number of this instance of INI_TR1
33        INTEGER myThid        INTEGER myThid
 CEndOfInterface  
34    
35    C     !LOCAL VARIABLES:
36  C     == Local variables ==  C     == Local variables ==
37  C     iC, jC - Center of domain  C     iC, jC - Center of domain
38  C     iD, jD - Disitance from domain center.  C     iD, jD - Disitance from domain center.
# Line 41  C     I,J,K Line 47  C     I,J,K
47        INTEGER I, J, K, localWarnings        INTEGER I, J, K, localWarnings
48        _RL     rad, rD        _RL     rad, rD
49        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
50    CEOP
51    
52        _BARRIER        _BARRIER
53    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22