Changeset 123 for LMDZ.3.3/branches/rel-LF/libf/phylmd/phyetat0.F

Timestamp:

Sep 8, 2000, 10:15:25 AM (24 years ago)

Author:

lmdzadmin

Message:

Pb d'affichage min/max albedo

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/phyetat0.F (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/phylmd/phyetat0.F

@@ -576 +576 @@
            xmax = -1.0E+20
            DO i = 1, klon
-              xmin = MIN(snow(i,nsrf),xmin)
-              xmax = MAX(snow(i,nsrf),xmax)
+              xmin = MIN(albe(i,nsrf),xmin)
+              xmax = MAX(albe(i,nsrf),xmax)
            ENDDO
-           PRINT*,'Neige du sol ALBE**:', nsrf, xmin, xmax
+           PRINT*,'Albedo du sol ALBE**:', nsrf, xmin, xmax
          ENDDO
       ELSE