[Dart-dev] DART/branches Revision: 11269

[dart at ucar.edu]

thoar at ucar.edu
2017-03-09 14:12:34 -0700 (Thu, 09 Mar 2017)
169
Declare the output variables as nf90_double instead
of nf90_real since that routine is now used to write
restart files (as opposed to Prior_Diag.nc, Posterior_Diag.nc)




Modified: DART/branches/rma_trunk/models/bgrid_solo/model_mod.f90
===================================================================
--- DART/branches/rma_trunk/models/bgrid_solo/model_mod.f90	2017-03-09 21:10:16 UTC (rev 11268)
+++ DART/branches/rma_trunk/models/bgrid_solo/model_mod.f90	2017-03-09 21:12:34 UTC (rev 11269)
@@ -1640,7 +1640,7 @@
                                     "statevariable valid_range")
 
    ! Define the actual state vector
-   call check(nf90_def_var(ncid=ncFileID, name="state", xtype=nf90_real, &
+   call check(nf90_def_var(ncid=ncFileID, name="state", xtype=nf90_double, &
               dimids = (/ StateVarDimID, MemberDimID, unlimitedDimID /), &
               varid=StateVarID), "state def_var")
    call check(nf90_put_att(ncFileID, StateVarID, "long_name", "model state or fcopy"), &
@@ -1675,7 +1675,7 @@
    ! Create the (empty) Variables and the Attributes
    !----------------------------------------------------------------------------
  
-   call check(nf90_def_var(ncid=ncFileID, name="ps", xtype=nf90_real, &
+   call check(nf90_def_var(ncid=ncFileID, name="ps", xtype=nf90_double, &
          dimids = (/ TmpIDimID, TmpJDimID, MemberDimID, unlimitedDimID /), &
          varid  = psVarID), "ps def_var")
    call check(nf90_put_att(ncFileID, psVarID, "long_name", "surface pressure"), &
@@ -1686,7 +1686,7 @@
                                            "ps units_long_name")
 
 
-   call check(nf90_def_var(ncid=ncFileID, name="t", xtype=nf90_real, &
+   call check(nf90_def_var(ncid=ncFileID, name="t", xtype=nf90_double, &
          dimids = (/ TmpIDimID, TmpJDimID, levDimID, MemberDimID, unlimitedDimID /), &
          varid  = tVarID), "t def_var")
    call check(nf90_put_att(ncFileID, tVarID, "long_name", "temperature"), "t long_name")
@@ -1693,7 +1693,7 @@
    call check(nf90_put_att(ncFileID, tVarID, "units", "degrees Kelvin"), "t units")
 
 
-   call check(nf90_def_var(ncid=ncFileID, name="u", xtype=nf90_real, &
+   call check(nf90_def_var(ncid=ncFileID, name="u", xtype=nf90_double, &
          dimids = (/ VelIDimID, VelJDimID, levDimID, MemberDimID, unlimitedDimID /), &
          varid  = uVarID), "u def_var")
    call check(nf90_put_att(ncFileID, uVarID, "long_name", "zonal wind component"), &
@@ -1701,7 +1701,7 @@
    call check(nf90_put_att(ncFileID, uVarID, "units", "m/s"), "u units")
 
 
-   call check(nf90_def_var(ncid=ncFileID, name="v", xtype=nf90_real, &
+   call check(nf90_def_var(ncid=ncFileID, name="v", xtype=nf90_double, &
          dimids = (/ VelIDimID, VelJDimID, levDimID, MemberDimID, unlimitedDimID /), &
          varid  = vVarID), "v def_var")
    call check(nf90_put_att(ncFileID, vVarID, "long_name", "meridional wind component"), &
@@ -1709,7 +1709,7 @@
    call check(nf90_put_att(ncFileID, vVarID, "units", "m/s"), "v units")
 
    if ( ntracer > 0 ) then
-      call check(nf90_def_var(ncid=ncFileID, name="r", xtype=nf90_real, &
+      call check(nf90_def_var(ncid=ncFileID, name="r", xtype=nf90_double, &
       dimids = (/TmpIDimID, TmpJDimID, levDimID, tracerDimID, MemberDimID, unlimitedDimID/),&
          varid  = rVarID), "r def_var")
       call check(nf90_put_att(ncFileID, rVarID, "long_name", "various tracers"), "r long_name")