- Timestamp:
- Oct 19, 2023, 4:02:57 PM (10 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phylmdiso/cv30_routines.F90
r4143 r4727 2647 2647 & ) 2648 2648 #ifdef ISO 2649 use infotrac_phy, ONLY: ntraciso=>ntiso 2649 use infotrac_phy, ONLY: ntraciso=>ntiso, niso 2650 2650 use isotopes_mod, ONLY: essai_convergence, iso_eau,iso_HDO,ridicule 2651 use isotopes_routines_mod, ONLY: appel_stewart_vectall 2651 use isotopes_routines_mod, ONLY: appel_stewart_vectall,appel_stewart_debug 2652 2652 #ifdef ISOVERIF 2653 2653 use isotopes_verif_mod, ONLY: errmax,errmaxrel, & … … 3208 3208 enddo 3209 3209 #endif 3210 3211 if (1.eq.0) then 3210 3212 ! appel de appel_stewart_vectorise 3211 3213 call appel_stewart_vectall(lwork,ncum, & … … 3218 3220 & i,inb, & ! altitude: car cas particulier en INB 3219 3221 & na,nd,nloc,cvflag_grav,ginv,1e-16) 3222 3223 else !if (1.eq.0) then 3224 ! truc simple sans fractionnement 3225 ! juste pour debuggage 3226 call appel_stewart_debug(lwork,nloc,inb,na,i, & 3227 evap,water,rpprec,rr,wdtrain, & 3228 xtevap,xtwater,xtp,xt,xtwdtrain) 3229 endif ! if (1.eq.0) then 3230 3220 3231 3221 3232 #ifdef ISOVERIF
Note: See TracChangeset
for help on using the changeset viewer.