|
Last change
on this file since 4625 was
4056,
checked in by dcugnet, 2 years ago
|
|
Most of the changes are intended to help to eventually remove the constraints about the tracers assumptions, in particular water tracers.
- Remove index tables itr_indice and niadv, replaced by tracers(:)%isAdvected and tracers(:)%isH2OFamily.
Most of the loops are now from 1 to nqtot:
- DO iq=nqo+1,nqtot loops are replaced with:
DO iq=1,nqtot
IF(tracers(iq)%isH2Ofamily) CYCLE
- DO it=1,nbtr; iq=niadv(it+nqo)
and DO it=1,nqtottr; iq=itr_indice(it) loops are replaced with:
it = 0
DO iq = 1, nqtot
IF(.NOT.tracers(iq)%isAdvected .OR. tracers(iq)%isH2Ofamily) CYCLE
it = it+1
- Move some StratAer? related code from infotrac to infotrac_phy
- Remove "nqperes" variable:
DO iq=1,nqpere loops are replaced with:
DO iq=1,nqtot
IF(tracers(iq)%parent/='air') CYCLE
- Cosmetic changes (justification, SELECT CASE instead of multiple IF...) mostly in advtrac* routines.
|
-
Property svn:special set to
*
|
|
File size:
31 bytes
|
| Line | |
|---|
| 1 | link ../phylmd/infotrac_phy.F90 |
|---|
Note: See
TracBrowser
for help on using the repository browser.
