Changeset 10078

Timestamp:

2018-09-03T12:07:37+02:00 (5 years ago)

Author:

clem

Message:

correct a print

File:

• utils/tools/NESTING/src/agrif_create_coordinates.f90 (modified) (1 diff)

utils/tools/NESTING/src/agrif_create_coordinates.f90

@@ -164 +164 @@
   status = Write_Coordinates(TRIM(Child_filename),G1)
   !
-  WRITE(*,*) 'Child domain position : '
+  WRITE(*,*) 'Position of the inner Child domain (i.e. without borders(masked) and ghostcells) : '
   IF( ln_agrif_domain ) THEN
-     WRITE(*,*) 'latmin =',G1%gphit(3,3)
-     WRITE(*,*) 'latmax =',G1%gphit(nxfin-2,nyfin-2)
-     WRITE(*,*) 'lonmin =',G1%glamt(3,3)
-     WRITE(*,*) 'lonmax =',G1%glamt(nxfin-2,nyfin-2)
+     WRITE(*,*) 'latmin =',G1%gphit(2+nbghostcellsfine,2+nbghostcellsfine)
+     WRITE(*,*) 'latmax =',G1%gphit(nxfin-(1+nbghostcellsfine),nyfin-(1+nbghostcellsfine))
+     WRITE(*,*) 'lonmin =',G1%glamt(2+nbghostcellsfine,2+nbghostcellsfine)
+     WRITE(*,*) 'lonmax =',G1%glamt(nxfin-(1+nbghostcellsfine),nyfin-(1+nbghostcellsfine))
   ELSE
      WRITE(*,*) 'latmin =',G1%gphit(1,1)