Changeset 10093 for utils/tools/NESTING/src/agrif_readwrite.f90

Timestamp:

2018-09-06T12:35:27+02:00 (6 years ago)

Author:

clem

Message:

just cosmetics for a better understanding of the namelist parameters

File:

• utils/tools/NESTING/src/agrif_readwrite.f90 (modified) (2 diffs)

utils/tools/NESTING/src/agrif_readwrite.f90

@@ -243 +243 @@
     CALL write_ncdf_var('mbathy' ,dimnames,name,Grid%bathy_level,'float')
     !
-    CALL copy_ncdf_att('nav_lon',TRIM(parent_meshmask_file),name,MINVAL(Grid%nav_lon),MAXVAL(Grid%nav_lon))
-    CALL copy_ncdf_att('nav_lat',TRIM(parent_meshmask_file),name,MINVAL(Grid%nav_lat),MAXVAL(Grid%nav_lat))
-    CALL copy_ncdf_att('mbathy' ,TRIM(parent_meshmask_file),name)       
+    CALL copy_ncdf_att('nav_lon',TRIM(parent_bathy_file),name,MINVAL(Grid%nav_lon),MAXVAL(Grid%nav_lon))
+    CALL copy_ncdf_att('nav_lat',TRIM(parent_bathy_file),name,MINVAL(Grid%nav_lat),MAXVAL(Grid%nav_lat))
+    CALL copy_ncdf_att('mbathy' ,TRIM(parent_bathy_file),name)       
     !
     WRITE(*,*) ' '
-    WRITE(*,*) 'Writing bathymetry file: ',name
+    WRITE(*,*) 'Writing bathymetry (levels) in: ',name
     WRITE(*,*) ' '
     !
@@ -473 +473 @@
     !
     WRITE(*,*) ' '
-    WRITE(*,*) 'Writing bathymetry file: ',name
+    WRITE(*,*) 'Writing bathymetry (meters) in: ',name
     WRITE(*,*) ' '
     !