Changeset 689 for LMDZ4/trunk/libf/phylmd/phyetat0.F

Timestamp:

Apr 4, 2006, 5:03:49 PM (18 years ago)

Author:

lmdzadmin

Message:

Commentaires variables slab
IM

File:

• LMDZ4/trunk/libf/phylmd/phyetat0.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/phyetat0.F

@@ -449 +449 @@
           xmax = MAX(tslab(i),xmax)
         ENDDO
-        PRINT*,'Ecart de la SST tslab:', xmin, xmax
+        PRINT*,'Min, Max tslab (utilise si OCEAN=slab )', xmin, xmax
 c
 c Lecture de seaice (pour slab ocean seulement):
@@ -473 +473 @@
           xmax = MAX(seaice(i),xmax)
         ENDDO
-        PRINT*,'Masse de la glace de mer seaice:', xmin, xmax
+        PRINT*,'Masse de la glace de mer (utilise si OCEAN=slab)', 
+     $  xmin, xmax
       ELSE
         tslab = 0.