Changeset 893

Timestamp:

06/13/19 16:45:39 (5 years ago)

Author:

adurocher

Message:

trunk : Zero-initialize output u-fields in write_restart

File:

• codes/icosagcm/trunk/src/output/restart.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/output/restart.f90

@@ -329 +329 @@
           IF (ndim==2) THEN
             ALLOCATE(global_field2d(3*ncell_glo))
+            global_field2d(:) = 0
             DO ind=1,ndomain_glo
               d=>domain_glo(ind)
@@ -348 +349 @@
           ELSE IF (ndim==3) THEN
             ALLOCATE(global_field3d(3*ncell_glo,llm))
+            global_field3d(:,:) = 0 
             DO ind=1,ndomain_glo
               d=>domain_glo(ind)
@@ -367 +369 @@
           ELSE IF (ndim==4) THEN
             ALLOCATE(global_field4d(3*ncell_glo,llm,nqtot))
+            global_field4d(:,:,:) = 0
             DO ind=1,ndomain_glo
               d=>domain_glo(ind)