[WAM-IPE] WAM-IPE r90054: Remove the error messages in the WAM model output f...
Samuel.Trahan at noaa.gov
Samuel.Trahan at noaa.gov
Tue Mar 21 21:28:08 UTC 2017
Friendly WAM-IPE developers,
This is an automated email about a WAM-IPE commit.
Project: WAM-IPE
URL: https://svnemc.ncep.noaa.gov/projects/gsm/branches/WAM-IPE/milestone4
Revision: 90054
Author: weiyu.yang at noaa.gov
Date: 2017-03-21T21:23:18.609488Z
Message:
Remove the error messages in the WAM model output files, out and err
Differences:
Index: checkout/libutil/module_export_import_data.F90
===================================================================
--- checkout/libutil/module_export_import_data.F90 (revision 89614)
+++ checkout/libutil/module_export_import_data.F90 (revision 90054)
@@ -35,7 +35,8 @@
integer,parameter :: ndata_2d=3
! integer,parameter :: ndata_2d=2
!* integer,parameter :: ndata_3d=9
- integer,parameter :: ndata_3d=12
+ integer,parameter :: ndata_3d=6 ! For WAM, no stochastic_wts
+! integer,parameter :: ndata_3d=12
!
!-----------------------------------------------------
!*** number of fields moved from dynamics
@@ -48,7 +49,8 @@
integer,parameter :: ndata_1d_dyn_exp=1
integer,parameter :: ndata_2d_dyn_exp=2
!* integer,parameter :: ndata_3d_dyn_exp=9
- integer,parameter :: ndata_3d_dyn_exp=12 ! added stochastic_wts
+ integer,parameter :: ndata_3d_dyn_exp=6 ! For WAM, no stochastic_wts
+! integer,parameter :: ndata_3d_dyn_exp=12 ! added stochastic_wts
!
!-----------------------------------------------------
!*** number of fields moved from physics
@@ -57,7 +59,8 @@
integer,parameter :: ndata_1d_phy_imp=1
integer,parameter :: ndata_2d_phy_imp=2
!* integer,parameter :: ndata_3d_phy_imp=9
- integer,parameter :: ndata_3d_phy_imp=12 ! added stochastic wts
+ integer,parameter :: ndata_3d_phy_imp=6 ! For WAM, no stochastic_wts
+! integer,parameter :: ndata_3d_phy_imp=12 ! added stochastic wts
integer,parameter :: ndata_1d_phy_exp=1
integer,parameter :: ndata_2d_phy_exp=3
!* integer,parameter :: ndata_3d_phy_exp=6
@@ -88,12 +91,12 @@
,'p ' &
,'dp ' &
,'dpdt ' &
- ,'shum_wts' &
- ,'sppt_wts' &
- ,'skebu_wts' &
- ,'skebv_wts' &
- ,'vcu_wts' &
- ,'vcv_wts' &
+! ,'shum_wts' &
+! ,'sppt_wts' &
+! ,'skebu_wts' &
+! ,'skebv_wts' &
+! ,'vcu_wts' &
+! ,'vcv_wts' &
/)
!
!-----------------------------------------------------------------------
-------------- next part --------------
Index: checkout/libutil/module_export_import_data.F90
===================================================================
--- checkout/libutil/module_export_import_data.F90 (revision 89614)
+++ checkout/libutil/module_export_import_data.F90 (revision 90054)
@@ -35,7 +35,8 @@
integer,parameter :: ndata_2d=3
! integer,parameter :: ndata_2d=2
!* integer,parameter :: ndata_3d=9
- integer,parameter :: ndata_3d=12
+ integer,parameter :: ndata_3d=6 ! For WAM, no stochastic_wts
+! integer,parameter :: ndata_3d=12
!
!-----------------------------------------------------
!*** number of fields moved from dynamics
@@ -48,7 +49,8 @@
integer,parameter :: ndata_1d_dyn_exp=1
integer,parameter :: ndata_2d_dyn_exp=2
!* integer,parameter :: ndata_3d_dyn_exp=9
- integer,parameter :: ndata_3d_dyn_exp=12 ! added stochastic_wts
+ integer,parameter :: ndata_3d_dyn_exp=6 ! For WAM, no stochastic_wts
+! integer,parameter :: ndata_3d_dyn_exp=12 ! added stochastic_wts
!
!-----------------------------------------------------
!*** number of fields moved from physics
@@ -57,7 +59,8 @@
integer,parameter :: ndata_1d_phy_imp=1
integer,parameter :: ndata_2d_phy_imp=2
!* integer,parameter :: ndata_3d_phy_imp=9
- integer,parameter :: ndata_3d_phy_imp=12 ! added stochastic wts
+ integer,parameter :: ndata_3d_phy_imp=6 ! For WAM, no stochastic_wts
+! integer,parameter :: ndata_3d_phy_imp=12 ! added stochastic wts
integer,parameter :: ndata_1d_phy_exp=1
integer,parameter :: ndata_2d_phy_exp=3
!* integer,parameter :: ndata_3d_phy_exp=6
@@ -88,12 +91,12 @@
,'p ' &
,'dp ' &
,'dpdt ' &
- ,'shum_wts' &
- ,'sppt_wts' &
- ,'skebu_wts' &
- ,'skebv_wts' &
- ,'vcu_wts' &
- ,'vcv_wts' &
+! ,'shum_wts' &
+! ,'sppt_wts' &
+! ,'skebu_wts' &
+! ,'skebv_wts' &
+! ,'vcu_wts' &
+! ,'vcv_wts' &
/)
!
!-----------------------------------------------------------------------
More information about the WAM-IPE
mailing list