Changeset 159 for LMDZ.3.3


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed

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

    r156 r159  
    728728      ENDDO
    729729c
    730       write(45,*) 'pctsrf'
    731       write(45,'(72f8.3)')pctsrf_new(:,is_sic)
    732730
    733731      RETURN

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

    r157 r159  
    947947        pctsrf_sav(:,is_oce) = 0.
    948948      endwhere
    949       if (check) then
    950         write(46,*)'pct_srf_sav_ice = '
    951         write(46,'(72f8.3)')pctsrf_sav(:,is_sic)
    952       endif
    953949      if (minval(pctsrf_sav(:,is_oce)) < 0.) then
    954950        write(*,*)'Pb fraction ocean inferieure a 0'
Note: See TracChangeset for help on using the changeset viewer.