/[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 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 38 by guez, Thu Jan 6 17:52:19 2011 UTC
# Line 10  cIM 261103 Line 10  cIM 261103
10        use indicesol        use indicesol
11        use dimphy        use dimphy
12        use iniprint        use iniprint
13        use YOMCST        use SUPHEC_M
14        use yoethf        use yoethf_m
15        use fcttre        use fcttre
16        use conf_phys_m        use conf_phys_m
17        IMPLICIT none        IMPLICIT none
# 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.3  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.21