/[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 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 98 by guez, Tue May 13 17:23:16 2014 UTC
# Line 29  contains Line 29  contains
29      ! "zu1" et "zv1". Nous avons moyenné les valeurs de ces trois      ! "zu1" et "zv1". Nous avons moyenné les valeurs de ces trois
30      ! champs sur les quatre sous-surfaces du modèle.      ! champs sur les quatre sous-surfaces du modèle.
31    
     use calendar, ONLY: ymds2ju  
32      use clqh_m, only: clqh      use clqh_m, only: clqh
33      use clvent_m, only: clvent      use clvent_m, only: clvent
34      use coefkz_m, only: coefkz      use coefkz_m, only: coefkz
# Line 53  contains Line 52  contains
52      use ustarhb_m, only: ustarhb      use ustarhb_m, only: ustarhb
53      use vdif_kcay_m, only: vdif_kcay      use vdif_kcay_m, only: vdif_kcay
54      use yamada4_m, only: yamada4      use yamada4_m, only: yamada4
55        use ymds2ju_m, ONLY: ymds2ju
56    
57      ! Arguments:      ! Arguments:
58    
# 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.82  
changed lines
  Added in v.98
  ViewVC Help
Powered by ViewVC 1.1.21