Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/aeropt.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/aeropt.F
r1279 r1299 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 SUBROUTINE aeropt(pplay, paprs, t_seri, msulfate, RHcl, … … 39 39 REAL alpha_aer_sulfate(nbre_RH,5) !--unit m2/g SO4 40 40 REAL alphasulfate 41 42 CHARACTER (LEN=20) :: modname='aeropt' 43 CHARACTER (LEN=80) :: abort_message 44 41 45 c 42 46 c Proprietes optiques … … 85 89 rh=MIN(RHcl(i,k)*100.,RH_MAX) 86 90 RH_num = INT( rh/10. + 1.) 87 IF (rh.LT.0.) STOP 'aeropt: RH < 0 not possible' 91 IF (rh.LT.0.) THEN 92 abort_message = 'aeropt: RH < 0 not possible' 93 CALL abort_gcm (modname,abort_message,1) 94 ENDIF 88 95 IF (rh.gt.85.) RH_num=10 89 96 IF (rh.gt.90.) RH_num=11
Note: See TracChangeset
for help on using the changeset viewer.