Changeset 3465 for LMDZ6/trunk/libf/phylmd/iostart.F90

Timestamp:

Mar 14, 2019, 10:34:31 AM (5 years ago)

Author:

Laurent Fairhead

Message:

Further modifications for DYNAMICO/LMDZ convergence. These are based
on Yann's LMDZ6_V2 sources. Compiles on irene and converges with revision 3459
in a bucket configuration
YM/LF

File:

• LMDZ6/trunk/libf/phylmd/iostart.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/iostart.F90

@@ -126 +126 @@
     LOGICAL,OPTIONAL :: found
     
-    REAL    :: field_glo(klon_glo,field_size)
-    REAL    :: field_glo_tmp(klon_glo,field_size)
-    INTEGER :: ind_cell_glo_glo(klon_glo)
+    REAL,ALLOCATABLE    :: field_glo(:,:)
+    REAL,ALLOCATABLE    :: field_glo_tmp(:,:)
+    INTEGER,ALLOCATABLE :: ind_cell_glo_glo(:)
     LOGICAL :: tmp_found
     INTEGER :: varid
     INTEGER :: ierr,i
 
-!    IF (is_master) ALLOCATE(ind_cell_glo_glo(1:klon_glo))
+    IF (is_master) THEN 
+      ALLOCATE(ind_cell_glo_glo(klon_glo))
+      ALLOCATE(field_glo(klon_glo,field_size))
+      ALLOCATE(field_glo_tmp(klon_glo,field_size))
+    ELSE
+      ALLOCATE(ind_cell_glo_glo(0))
+      ALLOCATE(field_glo(0,0))
+    ENDIF
+    
     CALL gather(ind_cell_glo,ind_cell_glo_glo)