Changeset 136 for LMDZ.3.3/branches/rel-LF/libf/dyn3d

Timestamp:

Sep 14, 2000, 3:55:19 PM (24 years ago)

Author:

lmdzadmin

Message:

* empty log message *

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/create_limit.F (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/create_limit.F

@@ -454 +454 @@
 c
       WRITE(*,*) 'phy_nat'
-      WRITE(*,'(72f4.1)') phy_nat0(1:klon)
+c     WRITE(*,'(72f4.1)') phy_nat0(1:klon)
 c
       DO k = 1, 360
@@ -466 +466 @@
             WHERE(phy_ice(1:klon, k) .LT. 0.) phy_ice(1 : klon, k) = 0.
             WRITE(*,*) 'phy_ice : ', k
-            WRITE(*,'(72f4.1)') phy_ice(1 : klon, k)
+c           WRITE(*,'(72f4.1)') phy_ice(1 : klon, k)
 c 
             IF (fracterre ) THEN