Changeset 1769 for trunk/LMDZ.MARS/libf

Timestamp:

Aug 26, 2017, 10:12:35 AM (7 years ago)

Author:

aslmd

Message:

LMDZ.MARS removed useless saved array pview in callradite

File:

• trunk/LMDZ.MARS/libf/phymars/callradite_mod.F (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/callradite_mod.F

@@ -260 +260 @@
 c   ---------------------
 
-      real,save,allocatable :: pview(:)
-      
       real zco2   ! volume fraction of CO2 in Mars atmosphere
       DATA zco2/0.95/
@@ -278 +276 @@
         ! compute ndomain and allocate local saved arrays
         ndomain= (ngrid-1) / ndomainsz + 1
-        allocate(pview(ngrid))
 
 c        Assign a number to the different scatterers
@@ -342 +339 @@
 c        -------------------------------------------
 
-         DO ig=1,ngrid
-            pview(ig)=1.66     ! cosecant of viewing angle
-         ENDDO
          gcp = g/cpp