/[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 206 by guez, Wed Apr 29 15:47:56 2015 UTC revision 207 by guez, Thu Sep 1 10:30:53 2016 UTC
# Line 4  module hgardfou_m Line 4  module hgardfou_m
4    
5  contains  contains
6    
7    SUBROUTINE hgardfou(t, tsol)    SUBROUTINE hgardfou(t, 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), tsol(klon, nbsrf)      REAL, intent(in):: t(klon, klev), ftsol(klon, nbsrf)
18    
19      ! Variables local to the procedure:      ! Variables local to the procedure:
20    
# Line 33  contains Line 33  contains
33      ENDDO      ENDDO
34    
35      DO nsrf = 1, nbsrf      DO nsrf = 1, nbsrf
36         jbad = ifirstloc(tsol(:, nsrf) > temp_max .or. tsol(:, nsrf) < temp_min)         jbad = ifirstloc(ftsol(:, nsrf) > temp_max &
37                .or. ftsol(:, nsrf) < temp_min)
38         if (jbad <= klon) then         if (jbad <= klon) then
39            PRINT *, 'hgardfou: temperature out of range'            PRINT *, 'hgardfou: temperature out of range'
40            print *, "tsol(", jbad, ", ", nsrf, ") = ", tsol(jbad, nsrf)            print *, "ftsol(", jbad, ", ", nsrf, ") = ", ftsol(jbad, nsrf)
41            stop 1            stop 1
42         ENDIF         ENDIF
43      ENDDO      ENDDO
Legend:
Removed from v.206  
changed lines
  Added in v.207
  ViewVC Help
Powered by ViewVC 1.1.21