<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 & graupel collecting rain.
open(unit=11,file='./LOOKUP_TABLES/table_qr_acr_qg.dat', &
- 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 & snow collecting rain.
open(unit=11,file='./LOOKUP_TABLES/table_qr_acr_qs.dat', &
- 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', &
- 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', &
- 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 < 0 ) THEN
CALL wrf_error_fatal ( 'module_ra_rrtmg_lw: rrtm_lwlookuptable: Can not '// &
'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 < 0 ) THEN
CALL wrf_error_fatal ( 'module_ra_rrtmg_sw: rrtm_swlookuptable: Can not '// &
'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 ) , &
- INTENT(OUT) :: ck,cka,cd,cda,ustm
+!ldf (11-08-2010): changed intent(out) to intent(inout) to avoid "warning" at
+!compilation time:
+! REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ) , &
+! INTENT(OUT) :: ck,cka,cd,cda,ustm
+ real, optional, dimension( ims:ime, jms:jme ) , &
+ intent(inout) :: ck,cka,cd,cda,ustm
+!ldf end.
INTEGER, OPTIONAL, INTENT(IN ) :: ISFTCFLX, IZ0TLND
</font>
</pre>