Changeset 7320 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90

Timestamp:

2016-11-23T14:24:07+01:00 (8 years ago)

Author:

cbricaud

Message:

create lib_fortran routine for CRS grid and interface it in TOP

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90 (modified) (1 diff)

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

@@ -1166 +1166 @@
          ENDDO
 
-         WRITE(narea+8000-1,*)"nfipproc(ji,jj),narea :",nfipproc(iproci,iprocj),narea
-         WRITE(narea+8000-1,*)"proc i,j ",iproci,iprocj
-         WRITE(narea+8000-1,*)"jpni  jpnj jpnij ",jpni,jpnj,jpnij
-         WRITE(narea+8000-1,*)"nperio jperio ",nperio,jperio
-         WRITE(narea+8000-1,*)"nowe noea",nowe,noea
-         WRITE(narea+8000-1,*)"noso nono",noso,nono
-         WRITE(narea+8000-1,*)"nbondi nbondj ",nbondi,nbondj
-         WRITE(narea+8000-1,*)"jpiglo jpjglo ",jpiglo,jpjglo
-         WRITE(narea+8000-1,*)"jpi jpj ",jpi,jpj
-         WRITE(narea+8000-1,*)"nbondi nbondj",nbondi,nbondj
-         WRITE(narea+8000-1,*)"nimpp njmpp ",nimpp,njmpp
-         WRITE(narea+8000-1,*)"loc jpi nldi,nlei,nlci ",jpi, nldi        ,nlei         ,nlci
-         WRITE(narea+8000-1,*)"glo jpi nldi,nlei      ",jpi, nldi+nimpp-1,nlei+nimpp-1
-         WRITE(narea+8000-1,*)"loc jpj nldj,nlej,nlcj ",jpj, nldj        ,nlej         ,nlcj
-         WRITE(narea+8000-1,*)"glo jpj nldj,nlej      ",jpj, nldj+njmpp-1,nlej+njmpp-1
-         WRITE(narea+8000-1,*)"jpiglo_crs jpjglo_crs ",jpiglo_crs,jpjglo_crs
-         WRITE(narea+8000-1,*)"jpi_crs jpj_crs ",jpi_crs,jpj_crs
-         WRITE(narea+8000-1,*)"glamt gphit ",glamt(1,1),gphit(jpi,jpj),glamt(jpi,jpj),gphit(jpi,jpj)
+         !WRITE(narea+8000-1,*)"nfipproc(ji,jj),narea :",nfipproc(iproci,iprocj),narea
+         !WRITE(narea+8000-1,*)"proc i,j ",iproci,iprocj
+         !WRITE(narea+8000-1,*)"jpni  jpnj jpnij ",jpni,jpnj,jpnij
+         !WRITE(narea+8000-1,*)"nperio jperio ",nperio,jperio
+         !WRITE(narea+8000-1,*)"nowe noea",nowe,noea
+         !WRITE(narea+8000-1,*)"noso nono",noso,nono
+         !WRITE(narea+8000-1,*)"nbondi nbondj ",nbondi,nbondj
+         !WRITE(narea+8000-1,*)"jpiglo jpjglo ",jpiglo,jpjglo
+         !WRITE(narea+8000-1,*)"jpi jpj ",jpi,jpj
+         !WRITE(narea+8000-1,*)"nbondi nbondj",nbondi,nbondj
+         !WRITE(narea+8000-1,*)"nimpp njmpp ",nimpp,njmpp
+         !WRITE(narea+8000-1,*)"loc jpi nldi,nlei,nlci ",jpi, nldi        ,nlei         ,nlci
+         !WRITE(narea+8000-1,*)"glo jpi nldi,nlei      ",jpi, nldi+nimpp-1,nlei+nimpp-1
+         !WRITE(narea+8000-1,*)"loc jpj nldj,nlej,nlcj ",jpj, nldj        ,nlej         ,nlcj
+         !WRITE(narea+8000-1,*)"glo jpj nldj,nlej      ",jpj, nldj+njmpp-1,nlej+njmpp-1
+         !WRITE(narea+8000-1,*)"jpiglo_crs jpjglo_crs ",jpiglo_crs,jpjglo_crs
+         !WRITE(narea+8000-1,*)"jpi_crs jpj_crs ",jpi_crs,jpj_crs
+         !WRITE(narea+8000-1,*)"glamt gphit ",glamt(1,1),gphit(jpi,jpj),glamt(jpi,jpj),gphit(jpi,jpj)
 
          !==========================================================================