[Dart-dev] DART/branches Revision: 11542
dart at ucar.edu
dart at ucar.edu
Thu Apr 27 11:16:14 MDT 2017
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, &
More information about the Dart-dev
mailing list