- Timestamp:
- Jan 20, 2010, 3:27:21 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/thermcell_dq.F90
r983 r1299 31 31 real ztimestep 32 32 integer niter,iter 33 CHARACTER (LEN=20) :: modname='thermcell_dq' 34 CHARACTER (LEN=80) :: abort_message 33 35 34 36 … … 42 44 if (entr(ig,k).gt.zzm) then 43 45 print*,'entr dt > m ',entr(ig,k)*ptimestep,masse(ig,k) 44 stop 46 abort_message = '' 47 CALL abort_gcm (modname,abort_message,1) 45 48 endif 46 49 enddo
Note: See TracChangeset
for help on using the changeset viewer.