Changeset 246 in lmdz_wrf

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'

Location:

trunk/WRFV3

Files:

• dyn_em/solve_em.F (modified) (1 diff)
• phys/module_lmdz_phys.F (modified) (3 diffs)

trunk/WRFV3/dyn_em/solve_em.F

@@ -894 +894 @@
         &        WRF_T=grid%t_2, WRF_U=grid%u_2, WRF_V=grid%v_2,                     &
         &        WRF_PERP=grid%P, WRF_BASEP=grid%PB,                                 &
-        &        WBDYW=config_flags%spec_bdy_width, WRF_ISRESTART=wrftestrst,        &
+        &        INWBDYW=config_flags%spec_bdy_width, WRF_ISRESTART=wrftestrst,      &
         &        WRF_ISLOWBDYIN=wrftestin                                            &
                   ! Dimension arguments

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,                &