[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