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

Timestamp:

2015-01-05T10:37:56+01:00 (9 years ago)

Author:

cbricaud

Message:

first modifications for output coarsening . see tieck 1426

File:

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

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

@@ -17 +17 @@
    
    PUBLIC crs_dom_alloc  ! Called from crsini.F90
+   PUBLIC crs_dom_alloc1  ! Called from crsini.F90
    PUBLIC crs_dom_alloc2  ! Called from crsini.F90
    PUBLIC dom_grid_glo   
@@ -166 +167 @@
 CONTAINS
    
-   INTEGER FUNCTION crs_dom_alloc()
+   INTEGER FUNCTION crs_dom_alloc1()
       !!-------------------------------------------------------------------
       !!                     *** FUNCTION crs_dom_alloc ***
@@ -172 +173 @@
       !!-------------------------------------------------------------------
       !! Local variables
-      INTEGER, DIMENSION(17) :: ierr
+      INTEGER, DIMENSION(14) :: ierr
 
       ierr(:) = 0
@@ -247 +248 @@
       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_alloc1 = MAXVAL(ierr)
+
+   END FUNCTION crs_dom_alloc1
+
+   INTEGER FUNCTION crs_dom_alloc()
+      !!-------------------------------------------------------------------
+      !!                     *** FUNCTION crs_dom_alloc ***
+      !!  ** Purpose :   Allocate public crs arrays  
+      !!-------------------------------------------------------------------
+      !! Local variables
+      INTEGER, DIMENSION(1) :: ierr
+
+      ierr(:) = 0
          
       ALLOCATE( nimppt_crs(jpnij) , nlcit_crs(jpnij) , nldit_crs(jpnij) , nleit_crs(jpnij), &
        &  nimppt_full(jpnij) , nlcit_full(jpnij) , nldit_full(jpnij) , nleit_full(jpnij),   &
                 njmppt_crs(jpnij) , nlcjt_crs(jpnij) , nldjt_crs(jpnij) , nlejt_crs(jpnij), &
-       &  njmppt_full(jpnij) , nlcjt_full(jpnij) , nldjt_full(jpnij) , nlejt_full(jpnij)  , STAT=ierr(15) )
-
-         
+       &  njmppt_full(jpnij) , nlcjt_full(jpnij) , nldjt_full(jpnij) , nlejt_full(jpnij)  , STAT=ierr(1) )
+
       crs_dom_alloc = MAXVAL(ierr)
 
@@ -268 +282 @@
       ierr(:) = 0
       
-      ALLOCATE( mjs_crs(nlej_crs) , mje_crs(nlej_crs), mis_crs(nlei_crs) , mie_crs(nlei_crs), STAT=ierr(1) )
+      !cbr ALLOCATE( mjs_crs(nlej_crs) , mje_crs(nlej_crs), mis_crs(nlei_crs) , mie_crs(nlei_crs), STAT=ierr(1) )
+      !cbr pk on alloue ac nlej_crs ??????
+      !cbrALLOCATE( mjs_crs(nlcj_crs) , mje_crs(nlcj_crs), mis_crs(nlci_crs) , mie_crs(nlci_crs), STAT=ierr(1) )
+      ALLOCATE( mjs_crs(jpj_crs) , mje_crs(jpj_crs), mis_crs(jpi_crs) , mie_crs(jpi_crs), STAT=ierr(1) )
       crs_dom_alloc2 = MAXVAL(ierr)