remove warning mesage requested by ee2 (#11)

Co-authored-by: wx20hw <Helin.Wei@m71a3.ncep.noaa.gov>
NOAA-EMC · Sep 1, 2020 · 16d832a · 16d832a
1 parent 6877b52
commit 16d832a
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 11 deletions.
diff --git a/sorc/gldas_model.fd/core/spmdMod.F b/sorc/gldas_model.fd/core/spmdMod.F
@@ -149,9 +149,9 @@ subroutine compute_mpigs_patch (nfact, numtot, numperproc, displs)
 
 ! ------------------- arguments -----------------------------------
     integer, intent(in ) :: nfact                ! multiplicative factor for patches
-    integer, intent(out) :: numtot               ! total number of elements (to send or recv)
-    integer, intent(out) :: numperproc(0:npes-1) ! per-PE number of items to receive
-    integer, intent(out) :: displs(0:npes-1)     ! per-PE displacements
+    integer, intent(out),target :: numtot               ! total number of elements (to send or recv)
+    integer, intent(out),target :: numperproc(0:npes-1) ! per-PE number of items to receive
+    integer, intent(out),target :: displs(0:npes-1)     ! per-PE displacements
 !------------------------------------------------------------------
 
 ! ---------------------- local variables --------------------------
@@ -184,9 +184,9 @@ subroutine compute_mpigs_land (nfact, numtot, numperproc, displs)
     implicit none
 ! ------------------- arguments -----------------------------------
     integer, intent(in ) :: nfact                ! multiplicative factor for patches
-    integer, intent(out) :: numtot               ! total number of elements (to send or recv)
-    integer, intent(out) :: numperproc(0:npes-1) ! per-PE number of items to receive
-    integer, intent(out) :: displs(0:npes-1)     ! per-PE displacements
+    integer, intent(out),target :: numtot               ! total number of elements (to send or recv)
+    integer, intent(out),target :: numperproc(0:npes-1) ! per-PE number of items to receive
+    integer, intent(out),target :: displs(0:npes-1)     ! per-PE displacements
 !------------------------------------------------------------------
 
 ! ---------------------- local variables --------------------------

diff --git a/sorc/gldas_model.fd/core/time_manager.F b/sorc/gldas_model.fd/core/time_manager.F
@@ -282,7 +282,7 @@ subroutine get_curr_date(lt, yr, mon, day, tod, offset)
 
 ! Arguments
    type(listime) :: lt
-   integer, intent(out) ::&
+   integer, intent(out),target ::&
       yr,    &! year
       mon,   &! month
       day,   &! day of month
@@ -311,7 +311,7 @@ subroutine get_prev_date(yr, mon, day, tod)
    implicit none
 
 ! Arguments
-   integer, intent(out) ::&
+   integer, intent(out),target ::&
       yr,    &! year
       mon,   &! month
       day,   &! day of month
@@ -336,7 +336,7 @@ subroutine get_start_date(yr, mon, day, tod)
    implicit none
 
 ! Arguments
-   integer, intent(out) ::&
+   integer, intent(out),target ::&
       yr,    &! year
       mon,   &! month
       day,   &! day of month
@@ -361,7 +361,7 @@ subroutine get_ref_date(yr, mon, day, tod)
    implicit none
 
 ! Arguments
-   integer, intent(out) ::&
+   integer, intent(out),target ::&
       yr,    &! year
       mon,   &! month
       day,   &! day of month
@@ -388,7 +388,7 @@ subroutine get_curr_time(days, seconds)
    implicit none
 
 ! Arguments
-   integer, intent(out) ::&
+   integer, intent(out),target ::&
       days,   &! number of whole days in time interval
       seconds  ! remaining seconds in time interval