Ignore:
Timestamp:
Mar 27, 2003, 2:44:17 PM (21 years ago)
Author:
lmdzadmin
Message:

Un peu de menage pour avoir moins de print dans les sorties
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r454 r458  
    236236      character (len = 20) :: modname = 'clmain'
    237237      LOGICAL check
    238       PARAMETER (check=.true.)
     238      PARAMETER (check=.false.)
    239239C
    240240      if (check) THEN
    … …  
    872872      character (len = 20) :: modname = 'Debut clqh'
    873873      LOGICAL check
    874       PARAMETER (check=.true.)
     874      PARAMETER (check=.false.)
    875875C
    876876      if (check) THEN
    … …  
    13881388      ENDDO
    13891389
    1390       PRINT*,' isommet=',isommet,' knon=',knon
     1390c$$$      PRINT*,' isommet=',isommet,' knon=',knon
    13911391
    13921392      DO k = 2, isommet
Note: See TracChangeset for help on using the changeset viewer.