Changeset 2311 for LMDZ5/trunk/libf/phylmd/cv30_routines.F90
- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/cv30_routines.F90
r1992 r2311 733 733 iflag, nk, icb, icbs, plcl, tnk, qnk, gznk, pbase, buoybase, t, q, qs, u, & 734 734 v, gz, th, tra, h, lv, cpn, p, ph, tv, tp, tvp, clw, sig, w0) 735 USE print_control_mod, ONLY: lunout 735 736 IMPLICIT NONE 736 737 737 738 include "cv30param.h" 738 include 'iniprint.h'739 739 740 740 ! inputs: … … 813 813 WRITE (lunout, *) 'strange! nn not equal to ncum: ', nn, ncum 814 814 abort_message = '' 815 CALL abort_ gcm(modname, abort_message, 1)815 CALL abort_physic(modname, abort_message, 1) 816 816 END IF 817 817
Note: See TracChangeset
for help on using the changeset viewer.