Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/cv3_routines.F
- 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/cv3_routines.F
r1277 r1299 1 1 ! 2 ! $ Header: /home/cvsroot/LMDZ4/libf/phylmd/cv3_routines.F,v 1.16 2008-11-06 16:29:35 lmdzadmin Exp$2 ! $Id$ 3 3 ! 4 4 c … … 35 35 integer nd 36 36 real delt ! timestep (seconds) 37 38 CHARACTER (LEN=20) :: modname='cv3_param' 39 CHARACTER (LEN=80) :: abort_message 37 40 38 41 c noff: integer limit for convection (nd-noff) … … 767 770 768 771 #include "cv3param.h" 772 include 'iniprint.h' 769 773 770 774 c inputs: … … 797 801 integer i,k,nn,j 798 802 803 CHARACTER (LEN=20) :: modname='cv3_compress' 804 CHARACTER (LEN=80) :: abort_message 799 805 800 806 do 110 k=1,nl+1 … … 839 845 840 846 if (nn.ne.ncum) then 841 print*,'strange! nn not equal to ncum: ',nn,ncum 842 stop 847 write(lunout,*)'strange! nn not equal to ncum: ',nn,ncum 848 abort_message = '' 849 CALL abort_gcm (modname,abort_message,1) 843 850 endif 844 851
Note: See TracChangeset
for help on using the changeset viewer.