Changeset 1410 for LMDZ4/branches/LMDZ4_AR5

Timestamp:

Jul 9, 2010, 9:43:49 AM (14 years ago)

Author:

jghattas

Message:

Bug fix : Now tracer Aga can be used in the same run as RN and
PB. Still, in this branche, RN and PB must be tracer number 3 and 4 in tracer.def.

File:

• LMDZ4/branches/LMDZ4_AR5/libf/phylmd/traclmdz_mod.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4_AR5/libf/phylmd/traclmdz_mod.F90

@@ -322 +322 @@
     
     DO it=1, nbtr
-       IF (couchelimite .AND. pbl_flg(it) == 0 .AND. rnpb) THEN ! couche limite avec quantite dans le sol calculee
+       IF (couchelimite .AND. pbl_flg(it) == 0 .AND. (it==id_rn .OR. it==id_pb)) THEN ! couche limite avec quantite dans le sol calculee
           CALL cltracrn(it, pdtphys, yu1, yv1,     &
                cdragh, coefh,t_seri,ftsol,pctsrf,  &