Changeset 246 in lmdz_wrf for trunk/WRFV3/phys

Timestamp:

Feb 3, 2015, 11:20:05 AM (10 years ago)

Author:

lfita

Message:

Creation of a local variable called `wbdyw' and renaming incomming one as
`inwbdyw'

File:

• trunk/WRFV3/phys/module_lmdz_phys.F (modified) (3 diffs)

trunk/WRFV3/phys/module_lmdz_phys.F

@@ -12 +12 @@
      &        wrf_T, wrf_U, wrf_V,                                                   &
      &        wrf_perP, wrf_baseP,                                                   &
-     &        wbdyw, wrf_isrestart,                                                  &
+     &        inwbdyw, wrf_isrestart,                                                &
      &        wrf_islowbdyin                                                         &
                   ! dimension arguments
@@ -81 +81 @@
         wrf_isrestart, wrf_islowbdyin
 
-    INTEGER, INTENT(IN)                                  :: wnx, wny, wnz, wbdyw
+    INTEGER, INTENT(IN)                                  :: wnx, wny, wnz, inwbdyw
 
     INTEGER, INTENT(IN)                                  ::                          &
@@ -129 +129 @@
 ! Local
     INTEGER                                              :: ip, jp, kp, lp
+    INTEGER                                              :: wbdyw
 
     REAL, DIMENSION(wims:wime,wkms:wkme,wjms:wjme)       :: wrf_Temp,                &