Changeset 2408 for LMDZ5/branches/testing/libf/phylmd/hgardfou.F90
- Timestamp:
- Dec 14, 2015, 11:43:09 AM (9 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 2293-2295,2297,2299-2302,2305-2313,2315,2317-2380,2382-2396
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/phylmd/hgardfou.F90
r2258 r2408 5 5 USE phys_state_var_mod 6 6 USE indice_sol_mod 7 USE print_control_mod, ONLY: lunout 7 8 IMPLICIT NONE 8 9 ! ====================================================================== 9 10 ! Verifier la temperature 10 11 ! ====================================================================== 11 include "dimensions.h"12 12 include "YOMCST.h" 13 include "iniprint.h"14 13 REAL t(klon, klev), tsol(klon, nbsrf) 15 14 CHARACTER(len=*), intent(in):: text … … 129 128 END DO 130 129 131 ! IF (.NOT. ok) CALL abort_ gcm(modname, text, 1)130 ! IF (.NOT. ok) CALL abort_physic(modname, text, 1) 132 131 IF (.NOT. ok) abortphy=1 133 132
Note: See TracChangeset
for help on using the changeset viewer.