Changeset 1414 for LMDZ4/trunk/libf/cosp/icarus.F

Timestamp:

Jul 15, 2010, 5:21:22 PM (14 years ago)

Author:

idelkadi

Message:

Passage a la version cosp.v1.3 pour le Lidar et ISCCP
Corrections de bugs pour ISCCP et optimisation pour le Lidar

File:

• LMDZ4/trunk/libf/cosp/icarus.F (modified) (5 diffs)

LMDZ4/trunk/libf/cosp/icarus.F

@@ -33 +33 @@
      &)
 
-!Id: icarus.f,v 4.0 2009/02/12 13:59:20 hadmw Exp $
+!$Id: icarus.f,v 4.1 2010/05/27 16:30:18 hadmw Exp $
 
 ! *****************************COPYRIGHT****************************
@@ -72 +72 @@
 ! *****************************COPYRIGHT*******************************
 ! *****************************COPYRIGHT*******************************
+! *****************************COPYRIGHT*******************************
 
       implicit none
@@ -234 +235 @@
       REAL attropmin (npoints)
       REAL atmax(npoints)
-      REAL atmin(npoints)
       REAL btcmin(npoints)
       REAL transmax(npoints)
@@ -356 +356 @@
       do j=1,npoints 
           ptrop(j)=5000.
-          atmin(j) = 400.
           attropmin(j) = 400.
           atmax(j) = 0.
@@ -373 +372 @@
                 itrop(j)=ilev
            end if
-           if (at(j,ilev) .gt. atmax(j)) atmax(j)=at(j,ilev)
-           if (at(j,ilev) .lt. atmin(j)) atmin(j)=at(j,ilev)
         enddo
 12    continue
+
+      do 13 ilev=1,nlev
+        do j=1,npoints 
+           if (at(j,ilev) .gt. atmax(j) .and.
+     &              ilev  .ge. itrop(j)) atmax(j)=at(j,ilev)
+        enddo
+13    continue
 
       end if