[Dart-dev] DART/branches Revision: 11542

[dart at ucar.edu]

thoar at ucar.edu
2017-04-27 11:16:14 -0600 (Thu, 27 Apr 2017)
95
Updated the scripting and namelists to work with the reorganized
file structure of Manhattan.




Modified: DART/branches/rma_output_files/models/ROMS/model_mod.f90
===================================================================
--- DART/branches/rma_output_files/models/ROMS/model_mod.f90	2017-04-27 17:07:06 UTC (rev 11541)
+++ DART/branches/rma_output_files/models/ROMS/model_mod.f90	2017-04-27 17:16:14 UTC (rev 11542)
@@ -578,7 +578,7 @@
 ! for the dimensions and coordinate variables
 integer :: nxirhoDimID, nxiuDimID, nxivDimID
 integer :: netarhoDimID, netauDimID, netavDimID
-integer :: nsrhoDimID
+integer :: nsrhoDimID, nswDimID
 
 ! for the prognostic variables
 integer :: VarID
@@ -599,6 +599,7 @@
 if ( .not. module_initialized ) call static_init_model
 
 ierr = -1 ! assume things go poorly
+
 model_writes_state = .false.
 
 ! we only have a netcdf handle here so we do not know the filename
@@ -637,176 +638,178 @@
 ! to know the geometry, the output variables (PS,U,V,T,Q,...) etc. We're skipping
 ! complicated part.
 
-   ! We need to output the prognostic variables.
-   ! Define the new dimensions IDs
+! We need to output the prognostic variables.
+! Define the new dimensions IDs
 
-   call nc_check(nf90_def_dim(ncid=ncFileID, name='xi_rho',  len = Nxi_rho, &
-        dimid = nxirhoDimID),'nc_write_model_atts', 'xi_rho def_dim '//trim(filename))
+call nc_check(nf90_def_dim(ncid=ncFileID, name='xi_rho',  len = Nxi_rho, &
+     dimid = nxirhoDimID),'nc_write_model_atts', 'xi_rho def_dim '//trim(filename))
 
-   call nc_check(nf90_def_dim(ncid=ncFileID, name='eta_rho', len = Neta_rho,&
-        dimid = netarhoDimID),'nc_write_model_atts', 'eta_rho def_dim '//trim(filename))
+call nc_check(nf90_def_dim(ncid=ncFileID, name='eta_rho', len = Neta_rho,&
+     dimid = netarhoDimID),'nc_write_model_atts', 'eta_rho def_dim '//trim(filename))
 
-   call nc_check(nf90_def_dim(ncid=ncFileID, name='s_rho',   len = Ns_rho,&
-        dimid = nsrhoDimID),'nc_write_model_atts', 's_rho def_dim '//trim(filename))
+call nc_check(nf90_def_dim(ncid=ncFileID, name='s_rho',   len = Ns_rho,&
+     dimid = nsrhoDimID),'nc_write_model_atts', 's_rho def_dim '//trim(filename))
 
-   call nc_check(nf90_def_dim(ncid=ncFileID, name='xi_u',    len = Nxi_u,&
-        dimid = nxiuDimID),'nc_write_model_atts', 'xi_u def_dim '//trim(filename))
+call nc_check(nf90_def_dim(ncid=ncFileID, name='s_w',   len = Ns_w,&
+     dimid = nswDimID),'nc_write_model_atts', 's_w def_dim '//trim(filename))
 
-   call nc_check(nf90_def_dim(ncid=ncFileID, name='xi_v',    len = Nxi_v,&
-        dimid = nxivDimID),'nc_write_model_atts', 'xi_v def_dim '//trim(filename))
+call nc_check(nf90_def_dim(ncid=ncFileID, name='xi_u',    len = Nxi_u,&
+     dimid = nxiuDimID),'nc_write_model_atts', 'xi_u def_dim '//trim(filename))
 
-   call nc_check(nf90_def_dim(ncid=ncFileID, name='eta_u',   len = Neta_u,&
-        dimid = netauDimID),'nc_write_model_atts', 'eta_u def_dim '//trim(filename))
+call nc_check(nf90_def_dim(ncid=ncFileID, name='xi_v',    len = Nxi_v,&
+     dimid = nxivDimID),'nc_write_model_atts', 'xi_v def_dim '//trim(filename))
 
-   call nc_check(nf90_def_dim(ncid=ncFileID, name='eta_v',   len = Neta_v,&
-        dimid = netavDimID),'nc_write_model_atts', 'eta_v def_dim '//trim(filename))
+call nc_check(nf90_def_dim(ncid=ncFileID, name='eta_u',   len = Neta_u,&
+     dimid = netauDimID),'nc_write_model_atts', 'eta_u def_dim '//trim(filename))
 
-   ! Create the (empty) Coordinate Variables and the Attributes
+call nc_check(nf90_def_dim(ncid=ncFileID, name='eta_v',   len = Neta_v,&
+     dimid = netavDimID),'nc_write_model_atts', 'eta_v def_dim '//trim(filename))
 
-   call nc_check(nf90_def_var(ncFileID,name='lon_rho', xtype=nf90_double, &
-                 dimids=(/ nxirhoDimID, netarhoDimID /), varid=VarID),&
-                 'nc_write_model_atts', 'lon_rho def_var '//trim(filename))
-   call nc_check(nf90_put_att(ncFileID,  VarID, 'long_name', 'rho longitudes'), &
-                 'nc_write_model_atts', 'lon_rho long_name '//trim(filename))
-   call nc_check(nf90_put_att(ncFileID,  VarID, 'units', 'degrees_east'), &
-                 'nc_write_model_atts', 'lon_rho units '//trim(filename))
+! Create the (empty) Coordinate Variables and the Attributes
 
-   call nc_check(nf90_def_var(ncFileID,name='lat_rho', xtype=nf90_double, &
-                 dimids=(/ nxirhoDimID, netarhoDimID /), varid=VarID),&
-                 'nc_write_model_atts', 'lat_rho def_var '//trim(filename))
-   call nc_check(nf90_put_att(ncFileID,  VarID, 'long_name', 'rho latitudes'), &
-                 'nc_write_model_atts', 'lat_rho long_name '//trim(filename))
-   call nc_check(nf90_put_att(ncFileID,  VarID, 'units', 'degrees_north'), &
-                 'nc_write_model_atts', 'lat_rho units '//trim(filename))
+call nc_check(nf90_def_var(ncFileID,name='lon_rho', xtype=nf90_double, &
+              dimids=(/ nxirhoDimID, netarhoDimID /), varid=VarID),&
+              'nc_write_model_atts', 'lon_rho def_var '//trim(filename))
+call nc_check(nf90_put_att(ncFileID,  VarID, 'long_name', 'rho longitudes'), &
+              'nc_write_model_atts', 'lon_rho long_name '//trim(filename))
+call nc_check(nf90_put_att(ncFileID,  VarID, 'units', 'degrees_east'), &
+              'nc_write_model_atts', 'lon_rho units '//trim(filename))
 
-   call nc_check(nf90_def_var(ncFileID,name='lon_u', xtype=nf90_double, &
-                 dimids=(/ nxiuDimID, netauDimID /), varid=VarID),&
-                 'nc_write_model_atts', 'lon_u def_var '//trim(filename))
-   call nc_check(nf90_put_att(ncFileID,  VarID, 'long_name', 'u longitudes'), &
-                 'nc_write_model_atts', 'lon_u long_name '//trim(filename))
-   call nc_check(nf90_put_att(ncFileID,  VarID, 'units', 'degrees_east'), &
-                 'nc_write_model_atts', 'lon_u units '//trim(filename))
+call nc_check(nf90_def_var(ncFileID,name='lat_rho', xtype=nf90_double, &