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

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

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

revision 97 by guez, Wed Mar 26 18:16:05 2014 UTC revision 98 by guez, Tue May 13 17:23:16 2014 UTC
# Line 493  contains Line 493  contains
493                    coefm(:knon, 1), ycoefm0, ycoefh0)                    coefm(:knon, 1), ycoefm0, ycoefh0)
494               coefm(:knon, :) = max(coefm(:knon, :), ycoefm0(:knon, :))               coefm(:knon, :) = max(coefm(:knon, :), ycoefm0(:knon, :))
495               coefh(:knon, :) = max(coefh(:knon, :), ycoefh0(:knon, :))               coefh(:knon, :) = max(coefh(:knon, :), ycoefh0(:knon, :))
496             END IF            END IF
497    
498            IF (iflag_pbl >= 3) THEN            IF (iflag_pbl >= 3) THEN
499               ! MELLOR ET YAMADA adapté ŕ Mars, Richard Fournier et               ! MELLOR ET YAMADA adapté ŕ Mars, Richard Fournier et
Legend:
Removed from v.97  
changed lines
  Added in v.98
  ViewVC Help
Powered by ViewVC 1.1.21