Changeset 1638 for trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/startvar.F90

Timestamp:

Dec 6, 2016, 11:45:04 AM (8 years ago)

Author:

slebonnois

Message:

SL: corrections for Venus newstart

File:

• trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/startvar.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/startvar.F90

@@ -428 +428 @@
   IF(check) WRITE(lunout,*)'Compute surface roughness induced by the orography'
   ALLOCATE(rugo   (iml  ,jml))
-  ALLOCATE(tmp_var(iml-1,jml))
   CALL rugsoro(lon_rad, lat_rad, relief_hi,      &
-       lon_in, lat_in, tmp_var)
-  rugo(1:iml-1,:)=tmp_var; rugo(iml,:)=tmp_var(1,:)
-  DEALLOCATE(relief_hi,tmp_var,lon_rad,lat_rad)
+       lon_in, lat_in, rugo)
+  DEALLOCATE(relief_hi,lon_rad,lat_rad)
   RETURN