Changeset 2311 for LMDZ5/trunk/libf/phylmd/thermcell_dq.F90
- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/thermcell_dq.F90
r1985 r2311 1 1 subroutine thermcell_dq(ngrid,nlay,impl,ptimestep,fm,entr, & 2 2 & masse,q,dq,qa,lev_out) 3 USE print_control_mod, ONLY: prt_level 3 4 implicit none 4 5 5 #include "iniprint.h"6 6 !======================================================================= 7 7 ! … … 55 55 print*,'entr*dt>m,1',k,entr(ig,k)*ptimestep,masse(ig,k) 56 56 abort_message = 'entr dt > m, 1st' 57 CALL abort_ gcm(modname,abort_message,1)57 CALL abort_physic (modname,abort_message,1) 58 58 endif 59 59 enddo … … 152 152 subroutine thermcell_dq_o(ngrid,nlay,impl,ptimestep,fm,entr, & 153 153 & masse,q,dq,qa,lev_out) 154 USE print_control_mod, ONLY: prt_level 154 155 implicit none 155 156 156 #include "iniprint.h"157 157 !======================================================================= 158 158 ! … … 196 196 print*,'entr*dt>m,2',k,entr(ig,k)*ptimestep,masse(ig,k) 197 197 abort_message = 'entr dt > m, 2nd' 198 CALL abort_ gcm(modname,abort_message,1)198 CALL abort_physic (modname,abort_message,1) 199 199 endif 200 200 enddo
Note: See TracChangeset
for help on using the changeset viewer.