Changeset 1340 for LMDZ4/trunk
- Timestamp:
- Apr 7, 2010, 5:07:29 PM (15 years ago)
- Location:
- LMDZ4/trunk/libf
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3d/inter_barxy_m.F90
r1323 r1340 179 179 180 180 DO idat = 1, idatmax 181 xxd(idat) = AMOD( xxd(idat) - xim0, 360. )181 xxd(idat) = MOD( xxd(idat) - xim0, 360. ) 182 182 fdd(idat) = fdat (idat) 183 183 ENDDO -
LMDZ4/trunk/libf/phylmd/physiq.F
r1334 r1340 573 573 574 574 REAL mip(klon,klev) ! mass flux shed by the adiab ascent at each level 575 REAL Vprecip(klon,klev ) ! precipitation vertical profile575 REAL Vprecip(klon,klev+1) ! precipitation vertical profile 576 576 c 577 577 REAL wape_prescr, fip_prescr
Note: See TracChangeset
for help on using the changeset viewer.