/[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 68 by guez, Thu Jan 6 17:52:19 2011 UTC revision 69 by guez, Mon Feb 18 16:33:12 2013 UTC
# Line 10  contains Line 10  contains
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    
13      use dimens_m      USE indicesol, ONLY: nbsrf
14      use indicesol      USE dimphy, ONLY: klev, klon
     use dimphy  
     use SUPHEC_M  
15    
16      REAL, intent(in):: t(klon, klev), tsol(klon, nbsrf)      REAL, intent(in):: t(klon, klev), tsol(klon, nbsrf)
17    
# Line 41  contains Line 39  contains
39               print *, "t(", jadrs(i), ", ", k, ") = ", t(jadrs(i), k)               print *, "t(", jadrs(i), ", ", k, ") = ", t(jadrs(i), k)
40            ENDDO            ENDDO
41         ENDIF         ENDIF
42    
43         jbad = 0         jbad = 0
44         DO i = 1, klon         DO i = 1, klon
45            IF (t(i, k) < temp_min) THEN            IF (t(i, k) < temp_min) THEN
Legend:
Removed from v.68  
changed lines
  Added in v.69
  ViewVC Help
Powered by ViewVC 1.1.21