Changeset 5481 for LMDZ6/trunk/libf/phylmdiso/phyredem.F90
- Timestamp:
- Jan 16, 2025, 8:14:15 PM (12 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/phyredem.F90
r5296 r5481 370 370 it = 0 371 371 DO iq = 1, nqtot 372 IF(.NOT. (tracers(iq)%isAdvected .AND. tracers(iq)%isInPhysics)) CYCLE372 IF(.NOT.tracers(iq)%isInPhysics) CYCLE 373 373 it = it+1 374 374 CALL put_field(pass,"trs_"//tracers(iq)%name, "", trs(:, it))
Note: See TracChangeset
for help on using the changeset viewer.