[Dart-dev] DART/branches Revision: 12965

[dart at ucar.edu]

nancy at ucar.edu
2019-01-31 16:48:23 -0700 (Thu, 31 Jan 2019)
109
fixed one more place where the code had: if(my_task_id() == 0)
and changed it to:  if (my_task == io_task) 




Modified: DART/branches/recam/assimilation_code/modules/assimilation/filter_mod.dopplerfold.f90
===================================================================
--- DART/branches/recam/assimilation_code/modules/assimilation/filter_mod.dopplerfold.f90	2019-01-31 23:43:08 UTC (rev 12964)
+++ DART/branches/recam/assimilation_code/modules/assimilation/filter_mod.dopplerfold.f90	2019-01-31 23:48:23 UTC (rev 12965)
@@ -1394,7 +1394,7 @@
 ! check to be sure we either find an existing dart qc field and
 ! reuse it, or we add a new one. only on task 0.
 DART_qc_index = get_obs_dartqc_index(seq)
-if (DART_qc_index < 0 .and. my_task_id() == 0) then
+if (DART_qc_index < 0 .and. my_task == io_task) then
    DART_qc_index = get_blank_qc_index(seq)
    if (DART_qc_index < 0) then
       ! Need 1 new qc field for the DART quality control

Modified: DART/branches/recam/assimilation_code/modules/assimilation/filter_mod.f90
===================================================================
--- DART/branches/recam/assimilation_code/modules/assimilation/filter_mod.f90	2019-01-31 23:43:08 UTC (rev 12964)
+++ DART/branches/recam/assimilation_code/modules/assimilation/filter_mod.f90	2019-01-31 23:48:23 UTC (rev 12965)
@@ -1391,7 +1391,7 @@
 ! check to be sure we either find an existing dart qc field and
 ! reuse it, or we add a new one. only on task 0.
 DART_qc_index = get_obs_dartqc_index(seq)
-if (DART_qc_index < 0 .and. my_task_id() == 0) then
+if (DART_qc_index < 0 .and. my_task == io_task) then
    DART_qc_index = get_blank_qc_index(seq)
    if (DART_qc_index < 0) then
       ! Need 1 new qc field for the DART quality control