/[lmdze]/trunk/Sources/phylmd/coefkz.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/coefkz.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 11 by guez, Wed Feb 27 13:16:39 2008 UTC revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC
# Line 125  c Line 125  c
125  c  c
126        IF (appel1er) THEN        IF (appel1er) THEN
127          if (prt_level > 9) THEN          if (prt_level > 9) THEN
128            WRITE(lunout,*)'coefkz, opt_ec:', opt_ec            print *,'coefkz, opt_ec:', opt_ec
129            WRITE(lunout,*)'coefkz, richum:', richum            print *,'coefkz, richum:', richum
130            IF (richum) WRITE(lunout,*)'coefkz, ratqs:', ratqs            IF (richum) print *,'coefkz, ratqs:', ratqs
131            WRITE(lunout,*)'coefkz, isommet:', isommet            print *,'coefkz, isommet:', isommet
132            WRITE(lunout,*)'coefkz, tvirtu:', tvirtu            print *,'coefkz, tvirtu:', tvirtu
133            appel1er = .FALSE.            appel1er = .FALSE.
134          endif          endif
135        ENDIF        ENDIF
Legend:
Removed from v.11  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21