[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