Skip to content
Snippets Groups Projects
Commit 22880f06 authored by GUEZ Lionel's avatar GUEZ Lionel
Browse files

Create variable `uniform_lon_lat`

In module `input_ssh_m`. Read it from `input_ssh_nml`.
parent ef43e372
No related branches found
No related tags found
No related merge requests found
...@@ -11,6 +11,9 @@ module input_ssh_m ...@@ -11,6 +11,9 @@ module input_ssh_m
! size of ssh array in input NetCDF, assuming no repeated point if ! size of ssh array in input NetCDF, assuming no repeated point if
! the grid is global ! the grid is global
logical, protected:: uniform_lon_lat = .true.
! grid is cartesian and uniform in longitude and latitude
private get_var private get_var
contains contains
...@@ -53,7 +56,7 @@ contains ...@@ -53,7 +56,7 @@ contains
real lon_max, lat_max ! longitude and latitude, in degrees real lon_max, lat_max ! longitude and latitude, in degrees
integer copy integer copy
namelist /grid_nml/ corner_deg, step_deg, nlon, nlat, periodic namelist /grid_nml/ corner_deg, step_deg, nlon, nlat, periodic
namelist /input_ssh_nml/ periodic namelist /input_ssh_nml/ periodic, uniform_lon_lat
!---------------------------------------------------------------------- !----------------------------------------------------------------------
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment