Changeset 2391 for LMDZ5/trunk/libf/dyn3d_common
- Timestamp:
- Nov 10, 2015, 9:51:52 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3d_common/infotrac.F90
r2372 r2391 59 59 60 60 SUBROUTINE infotrac_init 61 USE control_mod 61 USE control_mod, ONLY: planet_type, config_inca 62 62 #ifdef REPROBUS 63 63 USE CHEM_REP, ONLY : Init_chem_rep_trac … … 276 276 ! Y-a-t-il 1 ou 2 noms de traceurs? -> On regarde s'il y a un 277 277 ! espace ou pas au milieu de la chaine. 278 continu= 1279 nouveau_traceurdef= 0278 continu=.true. 279 nouveau_traceurdef=.false. 280 280 iiq=1 281 281 do while (continu) 282 282 if (tchaine(iiq:iiq).eq.' ') then 283 nouveau_traceurdef= 1284 continu= 0283 nouveau_traceurdef=.true. 284 continu=.false. 285 285 else if (iiq.lt.LEN_TRIM(tchaine)) then 286 286 iiq=iiq+1 287 287 else 288 continu= 0288 continu=.false. 289 289 endif 290 290 enddo
Note: See TracChangeset
for help on using the changeset viewer.