Changeset 4071 for LMDZ6/trunk/libf/phylmdiso/phyredem.F90
- Timestamp:
- Jan 31, 2022, 9:20:17 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/phyredem.F90
r4056 r4071 350 350 it = 0 351 351 DO iq = 1, nqtot 352 IF(.NOT. tracers(iq)%isAdvected .OR. tracers(iq)%isH2Ofamily) CYCLE352 IF(.NOT.(tracers(iq)%isAdvected .AND. tracers(iq)%isInPhysics)) CYCLE 353 353 it = it+1 354 354 CALL put_field(pass,"trs_"//tracers(iq)%name, "", trs(:, it))
Note: See TracChangeset
for help on using the changeset viewer.