Parent Directory | Revision Log | Patch
revision 90 by guez, Wed Mar 12 21:16:36 2014 UTC | revision 91 by guez, Wed Mar 26 17:18:58 2014 UTC | |
---|---|---|
# | Line 198 contains | Line 198 contains |
198 | ||
199 | if (firstcal) then | if (firstcal) then |
200 | print *, 'phytrac: pdtphys = ', pdtphys | print *, 'phytrac: pdtphys = ', pdtphys |
201 | PRINT *, 'Fr\'equence de sortie des traceurs : ecrit_tra = ', ecrit_tra | PRINT *, 'Frequency of tracer output: ecrit_tra = ', ecrit_tra |
202 | if (nbtr < nq_phys) call abort_gcm('phytrac', 'nbtr < nq_phys', 1) | if (nbtr < nq_phys) call abort_gcm('phytrac', 'nbtr < nq_phys', 1) |
203 | inirnpb=rnpb | inirnpb=rnpb |
204 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |