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 YOMCST |
|
15 |
|
|
16 |
REAL, intent(in):: t(klon, klev), tsol(klon, nbsrf) |
REAL, intent(in):: t(klon, klev), tsol(klon, nbsrf) |
17 |
|
|
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 |