Changeset 5601 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90

Timestamp:

2015-07-16T11:04:29+02:00 (9 years ago)

Author:

cbricaud

Message:

commit changes/bugfix/... for crs ; ok with time-splitting/fixed volume

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90 (modified) (5 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90

@@ -196 +196 @@
          ii = 1 + MOD(jarea-1,jpni)
          ij = 1 +    (jarea-1)/jpni
-         write(narea+200,*)"mppini_2  ====== > ",jarea,ii,ij
          ili = ilci(ii,ij)
          ilj = ilcj(ii,ij)
@@ -207 +206 @@
          IF( MOD(jarea,jpni) == 0 )   ibondi(ii,ij) =  1
          IF( jpni            == 1 )   ibondi(ii,ij) =  2
-         write(narea+200,*)"titi",jarea,ii,ij,MOD(jarea,jpni),ibondi(ii,ij) ; call flush(narea+200)
          ! 2.4 Subdomain neighbors
 
          iproc = jarea - 1
          ioso(ii,ij) = iproc - jpni
-         write(narea+200,*)"mppini_2 0: ",ii,ij,iproc,jpni,ioso(ii,ij) ; call flush(narea+200)
          iowe(ii,ij) = iproc - 1
          ioea(ii,ij) = iproc + 1
@@ -281 +278 @@
             ENDIF
          ENDIF
-         write(narea+200,*)"titi",jarea,ibondi(ii,ij) ; call flush(narea+200)
          ipolj(ii,ij) = 0
          IF( jperio == 3 .OR. jperio == 4 ) THEN
@@ -311 +307 @@
             ibonit(icont+1) = ibondi(ii,ij)
             ibonjt(icont+1) = ibondj(ii,ij)
-            write(narea+200,*)"titi 1 ",icont+1,ibonit(icont+1) ; call flush(narea+200)
          ENDIF
       END DO
@@ -424 +419 @@
       ii = iin(narea)
       ij = ijn(narea)
-      write(narea+200,*)"mppini_2 a ",noso,ii,ij,ioso(ii,ij),jpni*jpnj-1 ; call flush(narea+200)
       IF( ioso(ii,ij) >= 0 .AND. ioso(ii,ij) <= (jpni*jpnj-1) ) THEN 
          iiso = 1 + MOD(ioso(ii,ij),jpni)
          ijso = 1 +    (ioso(ii,ij))/jpni
          noso = ipproc(iiso,ijso)
-         write(narea+200,*)"mppini_2 b ",iiso,ijso,noso  ; call flush(narea+200)
       ELSE
          noso = -1