Changeset 893 for codes/icosagcm/trunk
- Timestamp:
- 06/13/19 16:45:39 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/output/restart.f90
r548 r893 329 329 IF (ndim==2) THEN 330 330 ALLOCATE(global_field2d(3*ncell_glo)) 331 global_field2d(:) = 0 331 332 DO ind=1,ndomain_glo 332 333 d=>domain_glo(ind) … … 348 349 ELSE IF (ndim==3) THEN 349 350 ALLOCATE(global_field3d(3*ncell_glo,llm)) 351 global_field3d(:,:) = 0 350 352 DO ind=1,ndomain_glo 351 353 d=>domain_glo(ind) … … 367 369 ELSE IF (ndim==4) THEN 368 370 ALLOCATE(global_field4d(3*ncell_glo,llm,nqtot)) 371 global_field4d(:,:,:) = 0 369 372 DO ind=1,ndomain_glo 370 373 d=>domain_glo(ind)
Note: See TracChangeset
for help on using the changeset viewer.