Changeset 10078


Ignore:
Timestamp:
2018-09-03T12:07:37+02:00 (2 years ago)
Author:
clem
Message:

correct a print

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/tools/NESTING/src/agrif_create_coordinates.f90

    r10025 r10078  
    164164  status = Write_Coordinates(TRIM(Child_filename),G1) 
    165165  ! 
    166   WRITE(*,*) 'Child domain position : ' 
     166  WRITE(*,*) 'Position of the inner Child domain (i.e. without borders(masked) and ghostcells) : ' 
    167167  IF( ln_agrif_domain ) THEN 
    168      WRITE(*,*) 'latmin =',G1%gphit(3,3) 
    169      WRITE(*,*) 'latmax =',G1%gphit(nxfin-2,nyfin-2) 
    170      WRITE(*,*) 'lonmin =',G1%glamt(3,3) 
    171      WRITE(*,*) 'lonmax =',G1%glamt(nxfin-2,nyfin-2) 
     168     WRITE(*,*) 'latmin =',G1%gphit(2+nbghostcellsfine,2+nbghostcellsfine) 
     169     WRITE(*,*) 'latmax =',G1%gphit(nxfin-(1+nbghostcellsfine),nyfin-(1+nbghostcellsfine)) 
     170     WRITE(*,*) 'lonmin =',G1%glamt(2+nbghostcellsfine,2+nbghostcellsfine) 
     171     WRITE(*,*) 'lonmax =',G1%glamt(nxfin-(1+nbghostcellsfine),nyfin-(1+nbghostcellsfine)) 
    172172  ELSE 
    173173     WRITE(*,*) 'latmin =',G1%gphit(1,1) 
Note: See TracChangeset for help on using the changeset viewer.