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

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

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

revision 221 by guez, Thu Apr 20 14:44:47 2017 UTC revision 222 by guez, Tue Apr 25 15:31:48 2017 UTC
# Line 4  module hgardfou_m Line 4  module hgardfou_m
4    
5  contains  contains
6    
7    SUBROUTINE hgardfou(t, ftsol)    SUBROUTINE hgardfou(t_seri, ftsol)
8    
9      ! From phylmd/hgardfou.F, v 1.1.1.1, 2004/05/19 12:53:07      ! From phylmd/hgardfou.F, v 1.1.1.1, 2004/05/19 12:53:07
10    
# Line 14  contains Line 14  contains
14      USE dimphy, ONLY: klev, klon      USE dimphy, ONLY: klev, klon
15      use nr_util, only: ifirstloc      use nr_util, only: ifirstloc
16    
17      REAL, intent(in):: t(klon, klev), ftsol(klon, nbsrf)      REAL, intent(in):: t_seri(:, :) ! (klon, klev)
18        REAL, intent(in):: ftsol(:, :) ! (klon, nbsrf)
19    
20      ! Variables local to the procedure:      ! Variables local to the procedure:
21    
# Line 24  contains Line 25  contains
25      !----------------------------------------------------------      !----------------------------------------------------------
26    
27      DO k = 1, klev      DO k = 1, klev
28         jbad = ifirstloc(t(:, k) > temp_max .or. t(:, k) < temp_min)         jbad = ifirstloc(t_seri(:, k) > temp_max .or. t_seri(:, k) < temp_min)
29         if (jbad <= klon) then         if (jbad <= klon) then
30            PRINT *, 'hgardfou: temperature out of range'            PRINT *, 'hgardfou: temperature out of range'
31            print *, "t(", jbad, ", ", k, ") = ", t(jbad, k)            print *, "t_seri(", jbad, ", ", k, ") = ", t_seri(jbad, k)
32            stop 1            stop 1
33         end if         end if
34      ENDDO      ENDDO
Legend:
Removed from v.221  
changed lines
  Added in v.222
  ViewVC Help
Powered by ViewVC 1.1.21