/[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

trunk/phylmd/hgardfou.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/Sources/phylmd/hgardfou.f 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, tsol)    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    
11      ! This procedure aborts the program if the temperature gets out of range.      ! This procedure aborts the program if the temperature gets out of range.
12    
# 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), tsol(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
35    
36      DO nsrf = 1, nbsrf      DO nsrf = 1, nbsrf
37         jbad = ifirstloc(tsol(:, nsrf) > temp_max .or. tsol(:, nsrf) < temp_min)         jbad = ifirstloc(ftsol(:, nsrf) > temp_max &
38                .or. ftsol(:, nsrf) < temp_min)
39         if (jbad <= klon) then         if (jbad <= klon) then
40            PRINT *, 'hgardfou: temperature out of range'            PRINT *, 'hgardfou: temperature out of range'
41            print *, "tsol(", jbad, ", ", nsrf, ") = ", tsol(jbad, nsrf)            print *, "ftsol(", jbad, ", ", nsrf, ") = ", ftsol(jbad, nsrf)
42            stop 1            stop 1
43         ENDIF         ENDIF
44      ENDDO      ENDDO
Legend:
Removed from v.76  
changed lines
  Added in v.222
  ViewVC Help
Powered by ViewVC 1.1.21