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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    
Legend:
Removed from v.90  
changed lines
  Added in v.91
  ViewVC Help
Powered by ViewVC 1.1.21