Changeset 3961 for LMDZ6/branches/LMDZ-tracers/libf/dyn3d_common
- Timestamp:
- Jul 13, 2021, 12:42:55 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-tracers/libf/dyn3d_common/infotrac.F90
r3960 r3961 269 269 270 270 IF(readTracersFiles(type_trac, fType, tracers)) CALL abort_gcm(modname,'problem with tracers file(s)',1) 271 modname = 'infotrac_init' 271 272 CALL msg(fType == 0, 'WARNING: USING DEFAULT VALUES !') 272 273 … … 310 311 nqtrue = nbtr + nqo !--- Total number of tracers 311 312 ALLOCATE(ttr(nqtrue)); ttr(1:nqo) = tracers(1:nqo) 313 ALLOCATE(hadv(nqtrue)); hadv(:) = 0 314 ALLOCATE(vadv(nqtrue)); vadv(:) = 0 312 315 DO iq = nqo+1, nqtrue 313 316 ttr(iq)%name = solsym(iq) 314 317 ttr(iq)%prnt = tran0 315 318 ttr(iq)%igen = 1 316 hadv = hadv_inca(iq-nqo) 317 vadv = vadv_inca(iq-nqo) 319 320 hadv(iq) = hadv_inca(iq-nqo) 321 vadv(iq) = vadv_inca(iq-nqo) 322 318 323 END DO 319 324 CALL MOVE_ALLOC(FROM=ttr, TO=tracers)
Note: See TracChangeset
for help on using the changeset viewer.