/[lmdze]/trunk/Sources/phylmd/CV30_routines/cv30_compress.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/CV30_routines/cv30_compress.f

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

revision 196 by guez, Mon May 23 13:50:39 2016 UTC revision 197 by guez, Tue May 24 12:25:29 2016 UTC
# Line 14  contains Line 14  contains
14    
15      use cv30_param_m, only: nl      use cv30_param_m, only: nl
16      USE dimphy, ONLY: klev, klon      USE dimphy, ONLY: klev, klon
17        use nr_util, only: assert
18    
19      ! inputs:      ! inputs:
20      integer, intent(in):: iflag1(:), nk1(:), icb1(:), icbs1(:) ! (klon)      integer, intent(in):: iflag1(:), nk1(:), icb1(:), icbs1(:) ! (klon)
# Line 31  contains Line 32  contains
32    
33      ! outputs:      ! outputs:
34      integer nk(:) ! (klon)      integer nk(:) ! (klon)
35        integer, intent(out):: icb(:) ! (ncum) {2 <= icb <= nl - 3}
     integer, intent(out):: icb(:) ! (ncum)  
     ! {2 <= icb <= nl - 3}  
     ! {ph(i, icb(i) + 1) < plcl(i) <= ph(i, icb(i))}  
   
36      integer icbs(klon)      integer icbs(klon)
37      real, intent(out):: plcl(:) ! (ncum)      real, intent(out):: plcl(:) ! (ncum)
38      real tnk(:), qnk(:), gznk(:) ! (klon)      real tnk(:), qnk(:), gznk(:) ! (klon)
# Line 101  contains Line 98  contains
98         endif         endif
99      end do      end do
100    
101        do i = 1, ncum
102           call assert(2 <= icb(i) .and. icb(i) <= nl - 3 .and. ph(i, icb(i) + 1) &
103                < plcl(i) .and. (plcl(i) <= ph(i, icb(i)) .or. icb(i) == 2), &
104                "cv30_compress")
105        end do
106    
107    end SUBROUTINE cv30_compress    end SUBROUTINE cv30_compress
108    
109  end module cv30_compress_m  end module cv30_compress_m
Legend:
Removed from v.196  
changed lines
  Added in v.197
  ViewVC Help
Powered by ViewVC 1.1.21