Changeset 4071 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90
- Timestamp:
- Jan 31, 2022, 9:20:17 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r4069 r4071 2270 2270 itr = 0 2271 2271 DO iq = 1, nqtot 2272 IF( tracers(iq)%isH2Ofamily) CYCLE2272 IF(.NOT.tracers(iq)%isInPhysics) CYCLE 2273 2273 itr = itr+1 2274 2274 DO k = 1, klev … … 2290 2290 itr = 0 2291 2291 do iq = 1, nqtot 2292 IF( tracers(iq)%isH2Ofamily) CYCLE2292 IF(.NOT.tracers(iq)%isInPhysics) CYCLE 2293 2293 itr = itr+1 2294 2294 tr_ancien(:,:,itr)=tr_seri(:,:,itr) … … 5117 5117 itr = 0 5118 5118 DO iq = 1, nqtot 5119 IF( tracers(iq)%isH2Ofamily) CYCLE5119 IF(.NOT.tracers(iq)%isInPhysics) CYCLE 5120 5120 itr = itr+1 5121 5121 DO k = 1, klev
Note: See TracChangeset
for help on using the changeset viewer.