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 |
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 |