Changeset 1403 for LMDZ4/trunk/libf/phylmd/o3cm.F
- Timestamp:
- Jul 1, 2010, 11:02:53 AM (14 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/phylmd/o3cm.F
r524 r1403 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 SUBROUTINE o3cm (amb, bmb, sortie, ntab) … … 19 19 c====================================================================== 20 20 external mbtozm 21 CHARACTER (LEN=20) :: modname='' 22 CHARACTER (LEN=80) :: abort_message 21 23 c====================================================================== 22 24 c la fonction en ligne w(x) donne le profil de l'ozone en fonction … … 27 29 w(x) = wp/h * EXP((x-xp)/h)/ (con+EXP((x-xp)/h))**2 28 30 c====================================================================== 29 IF (ntab .GT. 499) STOP 'BIG ntab' 30 xincr = (bmb-amb) / FLOAT(ntab) 31 IF (ntab .GT. 499) THEN 32 abort_message = 'BIG ntab' 33 CALL abort_gcm (modname,abort_message,1) 34 ENDIF 35 xincr = (bmb-amb) / REAL(ntab) 31 36 xtab(1) = amb 32 37 DO n = 2, ntab
Note: See TracChangeset
for help on using the changeset viewer.