Changeset 5007 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.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/LBC/mppini.F90 (modified) (3 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90

@@ -274 +274 @@
          nfipproc(ii,ij) = jn - 1
          nimppt(jn) = iimppt(ii,ij)
+         IF( ii==1 )THEN  ; nimpptea(jn) = -1
+         ELSE             ; nimpptea(jn) = iimppt(ii-1,ij)
+         ENDIF
          njmppt(jn) = ijmppt(ii,ij)
+         IF( ij==jpnj )THEN  ; njmpptno(jn) = -1
+         ELSE                ; njmpptno(jn) = ijmppt(ii,ij+1)
+         ENDIF
          nlcit (jn) = ilcit (ii,ij)     
+         IF( ii .GT. 1 )THEN ; nlcitea(jn) = ilcit(ii-1,ij)
+         ELSE                ; nlcitea(jn) = -1
+         ENDIF
          nlci       = nlcit (jn)     
          nlcjt (jn) = ilcjt (ii,ij)     
@@ -290 +299 @@
          IF( jpni            == 1 )   nbondi =  2      ! one processor only in i-direction
          ibonit(jn) = nbondi
-         
+  
          nldi =  1   + jpreci
          nlei = nlci - jpreci
@@ -356 +365 @@
       nimpp  = nimppt(narea)  
       njmpp  = njmppt(narea)  
+      WRITE(narea+200,*)"jpi,jpj,nlci,nlcj,nldi,nldj,nlei,nlej"
+      WRITE(narea+200,*)jpi,jpj,nlci,nlcj,nldi,nldj,nlei,nlej ; call flush(narea+200) !cbr 
+      WRITE(narea+200,*)"nldi+nimpp-1,nldj+njmpp-1,nlei+nimpp-1,nlej+njmpp-1" ; call flush(narea+200) !cbr
+      WRITE(narea+200,*)nldi+nimpp-1,nldj+njmpp-1,nlei+nimpp-1,nlej+njmpp-1 ; call flush(narea+200) !cbr
 
      ! Save processor layout in layout.dat file