Merge pull request #238 from uturuncoglu/hotfix/export_all

Fix export_all for data ocean
ESCOMP · Jul 13, 2023 · 26ab1e0 · 26ab1e0
2 parents ae827c3 + 707b505
commit 26ab1e0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/docn/ocn_comp_nuopc.F90 b/docn/ocn_comp_nuopc.F90
@@ -267,7 +267,7 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
     call ESMF_VMBroadcast(vm, import_data_fields, CL, main_task, rc=rc)
     if (ChkErr(rc,__LINE__,u_FILE_u)) return
 
-    call ESMF_VMBroadcast(vm, bcasttmp, 3, main_task, rc=rc)
+    call ESMF_VMBroadcast(vm, bcasttmp, 4, main_task, rc=rc)
     if (ChkErr(rc,__LINE__,u_FILE_u)) return
 
     call ESMF_VMBroadcast(vm, rtmp, 1, main_task, rc=rc)