Changeset 159 for LMDZ.3.3/branches/rel-LF/libf

Timestamp:

Nov 10, 2000, 12:11:33 PM (24 years ago)

Author:

lmdzadmin

Message:

Suppression d'ecriture de debogage
LF

Location:

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

Files:

• clmain.F (modified) (1 diff)
• interface_surf.F90 (modified) (1 diff)

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

@@ -728 +728 @@
       ENDDO
 c
-      write(45,*) 'pctsrf'
-      write(45,'(72f8.3)')pctsrf_new(:,is_sic)
 
       RETURN

LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

@@ -947 +947 @@
         pctsrf_sav(:,is_oce) = 0.
       endwhere
-      if (check) then
-        write(46,*)'pct_srf_sav_ice = '
-        write(46,'(72f8.3)')pctsrf_sav(:,is_sic)
-      endif
       if (minval(pctsrf_sav(:,is_oce)) < 0.) then
         write(*,*)'Pb fraction ocean inferieure a 0'