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

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

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

revision 1.23 by jmc, Mon Aug 27 18:42:37 2001 UTC revision 1.24 by cnh, Wed Sep 26 18:09:15 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_MASKS_ETC
8    C     !INTERFACE:
9        SUBROUTINE INI_MASKS_ETC( myThid )        SUBROUTINE INI_MASKS_ETC( myThid )
10  C     /==========================================================\  C     !DESCRIPTION: \bv
11  C     | SUBROUTINE INI_MASKS_ETC                                 |  C     *==========================================================*
12  C     | o Initialise masks and topography factors                |  C     | SUBROUTINE INI_MASKS_ETC                                  
13  C     |==========================================================|  C     | o Initialise masks and topography factors                
14  C     | These arrays are used throughout the code and describe   |  C     *==========================================================*
15  C     | the topography of the domain through masks (0s and 1s)   |  C     | These arrays are used throughout the code and describe    
16  C     | and fractional height factors (0<hFac<1). The latter     |  C     | the topography of the domain through masks (0s and 1s)    
17  C     | distinguish between the lopped-cell and full-step        |  C     | and fractional height factors (0<hFac<1). The latter      
18  C     | topographic representations.                             |  C     | distinguish between the lopped-cell and full-step        
19  C     \==========================================================/  C     | topographic representations.                              
20        IMPLICIT NONE  C     *==========================================================*
21    C     \ev
22    
23    C     !USES:
24          IMPLICIT NONE
25  C     === Global variables ===  C     === Global variables ===
26  #include "SIZE.h"  #include "SIZE.h"
27  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 24  C     === Global variables === Line 29  C     === Global variables ===
29  #include "GRID.h"  #include "GRID.h"
30  #include "SURFACE.h"  #include "SURFACE.h"
31    
32    C     !INPUT/OUTPUT PARAMETERS:
33  C     == Routine arguments ==  C     == Routine arguments ==
34  C     myThid -  Number of this instance of INI_MASKS_ETC  C     myThid -  Number of this instance of INI_MASKS_ETC
35        INTEGER myThid        INTEGER myThid
 CEndOfInterface  
36    
37    C     !LOCAL VARIABLES:
38  C     == Local variables in common ==  C     == Local variables in common ==
39  C     tmpfld  - Temporary array used to compute & write Total Depth  C     tmpfld  - Temporary array used to compute & write Total Depth
40  C               has to be in common for multi threading  C               has to be in common for multi threading
41        COMMON / LOCAL_INI_MASKS_ETC / tmpfld        COMMON / LOCAL_INI_MASKS_ETC / tmpfld
42        _RS tmpfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS tmpfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
   
43  C     == Local variables ==  C     == Local variables ==
44  C     bi,bj  - Loop counters  C     bi,bj  - Loop counters
45  C     I,J,K  C     I,J,K
# Line 46  C     I,J,K Line 51  C     I,J,K
51  #endif  #endif
52        _RL hFacCtmp        _RL hFacCtmp
53        _RL hFacMnSz        _RL hFacMnSz
54    CEOP
55    
56  C- Calculate lopping factor hFacC : over-estimate the part inside of the domain  C- Calculate lopping factor hFacC : over-estimate the part inside of the domain
57  C    taking into account the lower_R Boundary (Bathymetrie / Top of Atmos)  C    taking into account the lower_R Boundary (Bathymetrie / Top of Atmos)
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22