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

Timestamp:

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

Author:

lmdzadmin

Message:

Suppression d'ecriture de debogage
LF

File:

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

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'