<p><b>laura@ucar.edu</b> 2010-11-08 12:06:33 -0700 (Mon, 08 Nov 2010)</p><p>minor modifications to allow sourcecode to compile without warnings using g95<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_physics/physics_wrf/module_mp_thompson.F
===================================================================
--- branches/atmos_physics/src/core_physics/physics_wrf/module_mp_thompson.F        2010-11-08 17:46:20 UTC (rev 600)
+++ branches/atmos_physics/src/core_physics/physics_wrf/module_mp_thompson.F        2010-11-08 19:06:33 UTC (rev 601)
@@ -713,7 +713,7 @@
          write(0,*) '--- BEGIN READ PRE-CALCULATED LOOK-UP TABLES'
 !..Rain collecting graupel &amp; graupel collecting rain.
          open(unit=11,file='./LOOKUP_TABLES/table_qr_acr_qg.dat', &amp;
-              form='unformatted',status='old',readonly)
+              form='unformatted',status='old',action='read')
          read(11) tcg_racg
          read(11) tmr_racg
          read(11) tcr_gacr
@@ -724,7 +724,7 @@
 
 !..Rain collecting snow &amp; snow collecting rain.
          open(unit=11,file='./LOOKUP_TABLES/table_qr_acr_qs.dat', &amp;
-              form='unformatted',status='old',readonly)
+              form='unformatted',status='old',action='read')
          read(11) tcs_racs1
          read(11) tmr_racs1
          read(11) tcs_racs2
@@ -741,7 +741,7 @@
 
 !..Cloud water and rain freezing (Bigg, 1953).
          open(unit=11,file='./LOOKUP_TABLES/table_freezeH2O.dat', &amp;
-              form='unformatted',status='old',readonly)
+              form='unformatted',status='old',action='read')
          read(11) tpi_qrfz
          read(11) tni_qrfz
          read(11) tpg_qrfz
@@ -752,7 +752,7 @@
 
 !..Conversion of some ice mass into snow category.
          open(unit=11,file='./LOOKUP_TABLES/table_qi_aut_qs.dat', &amp;
-              form='unformatted',status='old',readonly)
+              form='unformatted',status='old',action='read')
          read(11) tpi_ide
          read(11) tps_iaus
          read(11) tni_iaus

Modified: branches/atmos_physics/src/core_physics/physics_wrf/module_ra_rrtmg_lw.F
===================================================================
--- branches/atmos_physics/src/core_physics/physics_wrf/module_ra_rrtmg_lw.F        2010-11-08 17:46:20 UTC (rev 600)
+++ branches/atmos_physics/src/core_physics/physics_wrf/module_ra_rrtmg_lw.F        2010-11-08 19:06:33 UTC (rev 601)
@@ -12152,7 +12152,11 @@
         rrtmg_unit = -1
  2010   CONTINUE
       ENDIF
-      CALL wrf_dm_bcast_bytes ( rrtmg_unit , IWORDSIZE )
+!ldf (11-08-2010): changed wrf_dm_bcast_bytes to wrf_dm_bcast_integer to avoid warning at
+!compilation time:
+!     CALL wrf_dm_bcast_bytes ( rrtmg_unit , IWORDSIZE )
+      CALL wrf_dm_bcast_integer ( rrtmg_unit , IWORDSIZE )
+!ldf end.
       IF ( rrtmg_unit &lt; 0 ) THEN
         CALL wrf_error_fatal ( 'module_ra_rrtmg_lw: rrtm_lwlookuptable: Can not '// &amp;
                                'find unused fortran unit to read in lookup table.' )

Modified: branches/atmos_physics/src/core_physics/physics_wrf/module_ra_rrtmg_sw.F
===================================================================
--- branches/atmos_physics/src/core_physics/physics_wrf/module_ra_rrtmg_sw.F        2010-11-08 17:46:20 UTC (rev 600)
+++ branches/atmos_physics/src/core_physics/physics_wrf/module_ra_rrtmg_sw.F        2010-11-08 19:06:33 UTC (rev 601)
@@ -10320,7 +10320,11 @@
         rrtmg_unit = -1
  2010   CONTINUE
       ENDIF
-      CALL wrf_dm_bcast_bytes ( rrtmg_unit , IWORDSIZE )
+!ldf (11-08-2010): changed wrf_dm_bcast_bytes to wrf_dm_bcast_integer to avoid warning at
+!compilation time:
+!     CALL wrf_dm_bcast_bytes ( rrtmg_unit , IWORDSIZE )
+      CALL wrf_dm_bcast_integer ( rrtmg_unit , IWORDSIZE )
+!ldf end.
       IF ( rrtmg_unit &lt; 0 ) THEN
         CALL wrf_error_fatal ( 'module_ra_rrtmg_sw: rrtm_swlookuptable: Can not '// &amp;
                                'find unused fortran unit to read in lookup table.' )

Modified: branches/atmos_physics/src/core_physics/physics_wrf/module_sf_sfclay.F
===================================================================
--- branches/atmos_physics/src/core_physics/physics_wrf/module_sf_sfclay.F        2010-11-08 17:46:20 UTC (rev 600)
+++ branches/atmos_physics/src/core_physics/physics_wrf/module_sf_sfclay.F        2010-11-08 19:06:33 UTC (rev 601)
@@ -175,8 +175,13 @@
                                     
       REAL,     INTENT(IN   )               ::   CP,G,ROVCP,R,XLV,DX
  
-      REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme )              , &amp;
-                INTENT(OUT)     ::              ck,cka,cd,cda,ustm
+!ldf (11-08-2010): changed intent(out) to intent(inout) to avoid &quot;warning&quot; at
+!compilation time:
+!     REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme )              , &amp;
+!               INTENT(OUT)     ::              ck,cka,cd,cda,ustm
+      real, optional, dimension( ims:ime, jms:jme )              , &amp;
+                intent(inout)     ::              ck,cka,cd,cda,ustm
+!ldf end.
 
       INTEGER,  OPTIONAL,  INTENT(IN )   ::     ISFTCFLX, IZ0TLND
 

</font>
</pre>