Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/cv3_inip.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_inip.F
r1146 r1299 12 12 c 13 13 c INTEGER iflag_mix 14 include 'iniprint.h' 15 16 CHARACTER (LEN=20) :: modname='cv3_inip' 17 CHARACTER (LEN=80) :: abort_message 18 14 19 c 15 20 c -- Mixing probability distribution functions … … 104 109 c 105 110 if (abs(aire-1.0) .gt. 0.02) then 106 print *,'WARNING:: AREA OF MIXING PDF IS::', aire 107 stop 111 write(lunout,*)'WARNING:: AREA OF MIXING PDF IS::', aire 112 abort_message = '' 113 CALL abort_gcm (modname,abort_message,1) 108 114 else 109 115 print *,'Area, mean & std deviation are ::', aire,mu,sigma
Note: See TracChangeset
for help on using the changeset viewer.