Changeset 3823 for branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/CRS/crs_dom.F90

Timestamp:

2013-02-28T14:31:33+01:00 (11 years ago)

Author:

cetlod

Message:

dev_r3411_CNRS4_IOCRS : minor bugfix + style

File:

• branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/CRS/crs_dom.F90 (modified) (12 diffs)

branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/CRS/crs_dom.F90

@@ -8 +8 @@
    !!----------------------------------------------------------------------
    USE par_oce  
-   USE dom_oce,  ONLY: nperio, narea, npolj, nlci, nlcj, nldi, nldj, nlei, nlej
+   USE dom_oce
+   USE in_out_manager
 
    IMPLICIT NONE
@@ -14 +15 @@
 
    
-      PUBLIC crs_dom_alloc  ! Called from crsini.F90
+   PUBLIC crs_dom_alloc  ! Called from crsini.F90
    PUBLIC dom_grid_glo   
-   PUBLIC dom_grid_crs   
+   PUBLIC dom_grid_crs 
 
       ! Domain variables
@@ -26 +27 @@
                    jpj_full                     !: 2nd dimension of local parent grid domain
 
+      INTEGER  ::  nistart, njstart
+      INTEGER  ::  niend  , njend
+
       INTEGER  ::  jpi_crsm1, jpj_crsm1         !: loop indices      
       INTEGER  ::  jpiglo_crsm1, jpjglo_crsm1   !: loop indices      
@@ -31 +35 @@
       INTEGER  ::  npolj_full, npolj_crs        !: north fold mark
       INTEGER  ::  jpiglo_full, jpjglo_full     !: jpiglo / jpjglo
-      INTEGER  ::  npiglo, npjglo      !: jpjglo
+      INTEGER  ::  npiglo, npjglo               !: jpjglo
       INTEGER  ::  nlci_full, nlcj_full         !: i-, j-dimension of local or sub domain on parent grid
       INTEGER  ::  nldi_full, nldj_full         !: starting indices of internal sub-domain on parent grid
@@ -43 +47 @@
       INTEGER  ::  nimpp_full, njmpp_full       !: global position of point (1,1) of subdomain on parent grid
       INTEGER  ::  nimpp_crs, njmpp_crs         !: set to 1,1 for now .  Valid only for monoproc
-
-
-      INTEGER, DIMENSION(:), ALLOCATABLE :: mis_crs, mie_crs, mjs_crs, mje_crs
-                                                ! starting and ending indices of parent subset
+      INTEGER  ::  nreci_full, nrecj_full
+      INTEGER  ::  nreci_crs, nrecj_crs
+      !cc
+      INTEGER ::   noea_full, nowe_full        !: index of the local neighboring processors in
+      INTEGER ::   noso_full, nono_full        !: east, west, south and north directions
+      INTEGER ::   npne_full, npnw_full        !: index of north east and north west processor
+      INTEGER ::   npse_full, npsw_full        !: index of south east and south west processor
+      INTEGER ::   nbne_full, nbnw_full        !: logical of north east & north west processor
+      INTEGER ::   nbse_full, nbsw_full        !: logical of south east & south west processor
+      INTEGER ::   nidom_full                  !: ???
+      INTEGER ::   nproc_full                  !:number for local processor
+      INTEGER ::   nbondi_full, nbondj_full    !: mark of i- and j-direction local boundaries
+      INTEGER ::   noea_crs, nowe_crs          !: index of the local neighboring processors in
+      INTEGER ::   noso_crs, nono_crs          !: east, west, south and north directions
+      INTEGER ::   npne_crs, npnw_crs          !: index of north east and north west processor
+      INTEGER ::   npse_crs, npsw_crs          !: index of south east and south west processor
+      INTEGER ::   nbne_crs, nbnw_crs          !: logical of north east & north west processor
+      INTEGER ::   nbse_crs, nbsw_crs          !: logical of south east & south west processor
+      INTEGER ::   nidom_crs                   !: ???
+      INTEGER ::   nproc_crs                   !:number for local processor
+      INTEGER ::   nbondi_crs, nbondj_crs      !: mark of i- and j-direction local boundaries
+      
+
+      INTEGER, DIMENSION(:), ALLOCATABLE :: mis_crs, mie_crs  ! starting and ending i-indices of parent subset
+      INTEGER, DIMENSION(:), ALLOCATABLE :: mjs_crs, mje_crs ! starting and ending  j-indices of parent subset
       INTEGER  :: mxbinctr, mybinctr            ! central point in grid box
  
@@ -135 +160 @@
       !!-------------------------------------------------------------------
       !! Local variables
-      INTEGER, DIMENSION(15) :: ierr
+      INTEGER, DIMENSION(17) :: ierr
 
       ierr(:) = 0
@@ -206 +231 @@
       ALLOCATE( nmln_crs(jpi_crs,jpj_crs) , hmld_crs(jpi_crs,jpj_crs) , &
          &      hmlp_crs(jpi_crs,jpj_crs) , hmlpt_crs(jpi_crs,jpj_crs) , STAT=ierr(14) )
-
-
+         
       crs_dom_alloc = MAXVAL(ierr)
 
@@ -227 +251 @@
 
       npolj  = npolj_full
-      jpnij  = jpnij_full
-      narea  = narea_full
       jpiglo = jpiglo_full
       jpjglo = jpjglo_full
 
+      nlci   = nlci_full
       nlcj   = nlcj_full
-      nlci   = nlci_full
       nldi   = nldi_full
+      nldj   = nldj_full
       nlei   = nlei_full
       nlej   = nlej_full
-
-      nldj   = nldj_full
+      nimpp  = nimpp_full
+      njmpp  = njmpp_full
+      
 
    END SUBROUTINE dom_grid_glo
@@ -257 +281 @@
 
       npolj_full  = npolj
-      jpnij_full  = jpnij
-      narea_full  = narea
       jpiglo_full = jpiglo
       jpjglo_full = jpjglo
@@ -265 +287 @@
       nlci_full   = nlci
       nldi_full   = nldi
+      nldj_full   = nldj
       nlei_full   = nlei
       nlej_full   = nlej
-      nldj_full   = nldj
-
+      nimpp_full  = nimpp     
+      njmpp_full  = njmpp
+      !
       !                        Switch to coarse grid domain
       jpi    = jpi_crs
@@ -277 +301 @@
 
       npolj  = npolj_crs
-      jpnij  = jpnij_crs
-      narea  = narea_crs
       jpiglo = jpiglo_crs
       jpjglo = jpjglo_crs
+
 
       nlci   = nlci_crs
@@ -287 +310 @@
       nlei   = nlei_crs
       nlej   = nlej_crs
-
       nldj   = nldj_crs
-
+      nimpp  = nimpp_crs
+      njmpp  = njmpp_crs
+      !
    END SUBROUTINE dom_grid_crs
+   
    !!======================================================================