Changeset 5010 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crs.F90

Timestamp:

2015-01-06T08:59:28+01:00 (9 years ago)

Author:

cbricaud

Message:

second modifications for output coarsening . see ticket 1426

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crs.F90 (modified) (9 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crs.F90

@@ -10 +10 @@
    USE dom_oce
    USE in_out_manager
-
+   USE lbcnfd
 
    IMPLICIT NONE
@@ -72 +72 @@
       INTEGER ::   nproc_crs                   !:number for local processor
       INTEGER ::   nbondi_crs, nbondj_crs      !: mark of i- and j-direction local boundaries
-      
+     
+      INTEGER ::  nfsloop_full,nfeloop_full 
+      INTEGER ::  nfsloop_crs ,nfeloop_crs
 
       INTEGER, DIMENSION(:), ALLOCATABLE :: mis_crs, mie_crs, mis2_crs, mie2_crs  ! starting and ending i-indices of parent subset
@@ -88 +90 @@
       INTEGER, DIMENSION(:), ALLOCATABLE ::   njmppt_crs, njmppt_full    !: first, last indoor index for each j-domain
 
+      INTEGER, DIMENSION(:,:), ALLOCATABLE ::   nfiimpp_full
+      INTEGER, DIMENSION(:,:), ALLOCATABLE ::   nfiimpp_crs
  
       ! Masks
@@ -259 +263 @@
       !!-------------------------------------------------------------------
       !! Local variables
-      INTEGER, DIMENSION(1) :: ierr
+      INTEGER, DIMENSION(2) :: ierr
 
       ierr(:) = 0
@@ -268 +272 @@
        &  njmppt_full(jpnij) , nlcjt_full(jpnij) , nldjt_full(jpnij) , nlejt_full(jpnij)  , STAT=ierr(1) )
 
+      ALLOCATE( nfiimpp_full(jpni,jpnj) , nfiimpp_crs(jpni,jpnj) ,STAT=ierr(2) )
+
       crs_dom_alloc = MAXVAL(ierr)
 
@@ -296 +302 @@
       !! ** Purpose : +Return back to parent grid domain 
       !!---------------------------------------------------------------------
+      write(narea+200,*)"dom_grid_glo";call flush(narea+200)
 
       !                         Return to parent grid domain
@@ -326 +333 @@
       njmppt(:) = njmppt_full(:)
 
+      nfsloop = nfsloop_full
+      nfeloop = nfeloop_full
+
+      nfiimpp(:,:) = nfiimpp_full(:,:)
+
    END SUBROUTINE dom_grid_glo
 
@@ -334 +346 @@
       !! ** Purpose :  Save the parent grid information & Switch to coarse grid domain
       !!---------------------------------------------------------------------
-
+      write(narea+200,*)"dom_grid_crs";call flush(narea+200)
       !
       !                        Switch to coarse grid domain
@@ -366 +378 @@
       njmppt(:) = njmppt_crs(:)
 
+      nfsloop = nfsloop_crs
+      nfeloop = nfeloop_crs
+
+      nfiimpp(:,:) = nfiimpp_crs(:,:)
 
       !