Changeset 2311 for LMDZ5/trunk/libf/phylmd/cv3p1_closure.F90
- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/cv3p1_closure.F90
r2253 r2311 19 19 ! ************************************************************** 20 20 21 USE print_control_mod, ONLY: prt_level, lunout 21 22 IMPLICIT NONE 22 23 … … 26 27 include "YOMCST.h" 27 28 include "conema3.h" 28 include "iniprint.h"29 29 30 30 ! input: … … 552 552 , il, alp2(il), alp(il), cin(il) 553 553 abort_message = '' 554 CALL abort_ gcm(modname, abort_message, 1)554 CALL abort_physic(modname, abort_message, 1) 555 555 END IF 556 556 cbmfmax(il) = sigmax*wb2(il)*100.*p(il, icb(il))/(rrd*tv(il,icb(il)))
Note: See TracChangeset
for help on using the changeset viewer.