Changeset 1410 for LMDZ4/branches
- Timestamp:
- Jul 9, 2010, 9:43:49 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4_AR5/libf/phylmd/traclmdz_mod.F90
r1405 r1410 322 322 323 323 DO it=1, nbtr 324 IF (couchelimite .AND. pbl_flg(it) == 0 .AND. rnpb) THEN ! couche limite avec quantite dans le sol calculee324 IF (couchelimite .AND. pbl_flg(it) == 0 .AND. (it==id_rn .OR. it==id_pb)) THEN ! couche limite avec quantite dans le sol calculee 325 325 CALL cltracrn(it, pdtphys, yu1, yv1, & 326 326 cdragh, coefh,t_seri,ftsol,pctsrf, &
Note: See TracChangeset
for help on using the changeset viewer.