--- MITgcm/tools/OAD_support/ad_template.revolve.F 2013/02/23 04:24:42 1.1 +++ MITgcm/tools/OAD_support/ad_template.revolve.F 2013/03/09 14:55:51 1.2 @@ -42,7 +42,7 @@ !$TEMPLATE_PRAGMA_DECLARATIONS LOGICAL :: initialized=.FALSE. TYPE(rvAction),save :: theAction - CHARACTER , DIMENSION(80) :: errorMsg + CHARACTER(80) :: errorMsg integer, save :: jointCPCount integer, save :: currIter