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

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

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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 233 by guez, Tue Nov 7 10:52:46 2017 UTC
# Line 1  Line 1 
1  SUBROUTINE coefkz2(nsrf, knon, paprs, pplay, t, pcfm, pcfh)  module coefkz2_m
2      
3      IMPLICIT none
4    
5    contains
6    
7      SUBROUTINE coefkz2(nsrf, knon, paprs, pplay, t, pcfm, pcfh)
8    
9    ! J'introduit un peu de diffusion sauf dans les endroits    ! J'introduit un peu de diffusion sauf dans les endroits
10    ! ou une forte inversion est presente    ! ou une forte inversion est presente
# Line 10  SUBROUTINE coefkz2(nsrf, knon, paprs, pp Line 16  SUBROUTINE coefkz2(nsrf, knon, paprs, pp
16    use conf_gcm_m    use conf_gcm_m
17    use SUPHEC_M    use SUPHEC_M
18    
   IMPLICIT none  
   
19    ! Arguments:    ! Arguments:
20    ! nsrf-----input-I- indicateur de la nature du sol    ! nsrf-----input-I- indicateur de la nature du sol
21    ! knon-----input-I- nombre de points a traiter    ! knon-----input-I- nombre de points a traiter
# Line 91  SUBROUTINE coefkz2(nsrf, knon, paprs, pp Line 95  SUBROUTINE coefkz2(nsrf, knon, paprs, pp
95    ENDDO    ENDDO
96    
97  END SUBROUTINE coefkz2  END SUBROUTINE coefkz2
98    
99    end module coefkz2_m
Legend:
Removed from v.134  
changed lines
  Added in v.233
  ViewVC Help
Powered by ViewVC 1.1.21