[Dart-dev] [6197] DART/branches/development/ensemble_manager/ensemble_manager_mod.f90: avoid early returns for now.

nancy at ucar.edu nancy at ucar.edu
Wed May 29 18:22:51 MDT 2013


Revision: 6197
Author:   nancy
Date:     2013-05-29 18:22:50 -0600 (Wed, 29 May 2013)
Log Message:
-----------
avoid early returns for now.

Modified Paths:
--------------
    DART/branches/development/ensemble_manager/ensemble_manager_mod.f90

-------------- next part --------------
Modified: DART/branches/development/ensemble_manager/ensemble_manager_mod.f90
===================================================================
--- DART/branches/development/ensemble_manager/ensemble_manager_mod.f90	2013-05-29 23:03:03 UTC (rev 6196)
+++ DART/branches/development/ensemble_manager/ensemble_manager_mod.f90	2013-05-30 00:22:50 UTC (rev 6197)
@@ -1129,7 +1129,7 @@
            'vars & copies both valid, transpose not needed', source, revision, revdate, &
             text2=msgstring)
    endif
-   return
+   !return
 else if (ens_handle%valid /= VALID_VARS) then
    write(msgstring, *) 'ens_handle ', ens_handle%id_num
    call error_handler(E_ERR, 'all_vars_to_all_copies', &
@@ -1301,7 +1301,7 @@
            'vars & copies both valid, transpose not needed', source, revision, revdate, &
             text2=msgstring)
    endif
-   return
+   !return
 else if (ens_handle%valid /= VALID_COPIES) then
    write(msgstring, *) 'ens_handle ', ens_handle%id_num
    call error_handler(E_ERR, 'all_copies_to_all_vars', &


More information about the Dart-dev mailing list