Changeset 2311 for LMDZ5/trunk/libf/phylmd/cv3_routines.F90
- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/cv3_routines.F90
r2306 r2311 891 891 h, lv, cpn, p, ph, tv, tp, tvp, clw, & 892 892 sig, w0) 893 USE print_control_mod, ONLY: lunout 893 894 IMPLICIT NONE 894 895 895 896 include "cv3param.h" 896 include 'iniprint.h'897 897 898 898 !inputs: … … 971 971 WRITE (lunout, *) 'strange! nn not equal to ncum: ', nn, ncum 972 972 abort_message = '' 973 CALL abort_ gcm(modname, abort_message, 1)973 CALL abort_physic(modname, abort_message, 1) 974 974 END IF 975 975
Note: See TracChangeset
for help on using the changeset viewer.