Changeset 3852 for LMDZ6/branches/LMDZ-tracers/libf/dyn3dmem/advtrac_loc.F
- Timestamp:
- Feb 22, 2021, 5:28:31 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-tracers/libf/dyn3dmem/advtrac_loc.F
r2622 r3852 24 24 USE Vampir 25 25 USE times 26 USE infotrac, ONLY: nqtot, iadv, ok_iso_verif26 USE infotrac, ONLY: nqtot, tracers 27 27 USE control_mod, ONLY: iapp_tracvl, day_step, planet_type 28 28 USE advtrac_mod, ONLY: finmasse … … 60 60 INTEGER ij,l,iq,iiq 61 61 REAL zdpmin, zdpmax 62 INTEGER, POINTER :: iadv(:) 62 63 c---------------------------------------------------------- 63 64 c Rajouts pour PPM … … 77 78 type(Request),SAVE :: testRequest 78 79 !$OMP THREADPRIVATE(testRequest) 80 81 iadv => tracers(:)%iadv 79 82 80 83 c test sur l''eventuelle creation de valeurs negatives de la masse … … 157 160 158 161 !write(*,*) 'advtrac 162: apres appel vlspltgen_loc' 159 if (ok_iso_verif) then 160 call check_isotopes(q,ijb_u,ije_u,'advtrac 162') 161 endif !if (ok_iso_verif) then 162 163 call check_isotopes(q,ijb_u,ije_u,'advtrac 162') 162 164 163 165 #ifdef DEBUG_IO
Note: See TracChangeset
for help on using the changeset viewer.