- Timestamp:
- Apr 15, 2015, 6:49:07 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcell_main.F90
r3809 r3814 565 565 if (.not. (f0(1).ge.0.) ) then 566 566 abort_message = '.not. (f0(1).ge.0.)' 567 CALL abort_ gcm(modname,abort_message,1)567 CALL abort_physic (modname,abort_message,1) 568 568 endif 569 569 … … 695 695 if (ierr==1) then 696 696 abort_message = 'thermcellV0_main: les thermiques vont trop haut ' 697 CALL abort_ gcm(modname,abort_message,1)697 CALL abort_physic (modname,abort_message,1) 698 698 endif 699 699
Note: See TracChangeset
for help on using the changeset viewer.