Changeset 2311 for LMDZ5/trunk/libf/phylmd/hgardfou.F90
- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/hgardfou.F90
r2235 r2311 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 ! ====================================================================== … … 11 12 include "dimensions.h" 12 13 include "YOMCST.h" 13 include "iniprint.h"14 14 REAL t(klon, klev), tsol(klon, nbsrf) 15 15 CHARACTER(len=*), intent(in):: text … … 129 129 END DO 130 130 131 ! IF (.NOT. ok) CALL abort_ gcm(modname, text, 1)131 ! IF (.NOT. ok) CALL abort_physic(modname, text, 1) 132 132 IF (.NOT. ok) abortphy=1 133 133
Note: See TracChangeset
for help on using the changeset viewer.