Changeset 4071 for LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
- Timestamp:
- Jan 31, 2022, 9:20:17 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
r4065 r4071 2474 2474 itr = 0 2475 2475 DO iq = 1, nqtot 2476 IF( tracers(iq)%isH2Ofamily) CYCLE2476 IF(.NOT.tracers(iq)%isInPhysics) CYCLE 2477 2477 itr = itr+1 2478 2478 !#ifdef ISOVERIF … … 2498 2498 itr = 0 2499 2499 do iq = 1, nqtot 2500 IF( tracers(iq)%isH2Ofamily) CYCLE2500 IF(.NOT.tracers(iq)%isInPhysics) CYCLE 2501 2501 itr = itr+1 2502 2502 tr_ancien(:,:,itr)=tr_seri(:,:,itr) … … 6531 6531 itr = 0 6532 6532 DO iq = 1, nqtot 6533 IF( tracers(iq)%isH2Ofamily) CYCLE6533 IF(.NOT.tracers(iq)%isInPhysics) CYCLE 6534 6534 itr = itr+1 6535 6535 DO k = 1, klev
Note: See TracChangeset
for help on using the changeset viewer.