Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/conema3.F
- Timestamp:
- Jan 20, 2010, 3:27:21 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/conema3.F
r1146 r1299 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 SUBROUTINE conema3 (dtime,paprs,pplay,t,q,u,v,tra,ntra, … … 360 360 cape(i) = em_CAPE 361 361 wd(i) = em_wd 362 rflag(i) = float(iflag)362 rflag(i) = REAL(iflag) 363 363 c SB kbas(i) = em_bas 364 364 c SB ktop(i) = em_top
Note: See TracChangeset
for help on using the changeset viewer.