Move line inside if-statement

Author: slevis-lmwg

src/main/histFileMod.F90

@@ -3443,8 +3443,8 @@ subroutine htape_timeconst(t, mode)
           call ncd_defvar(nfid(t), 'time_bounds', ncd_double, 2, dim2id, varid, &
              long_name = 'time interval endpoints', &
              units = str)
+          call ncd_putatt(nfid(t), varid, 'calendar', caldesc)
        end if
-       call ncd_putatt(nfid(t), varid, 'calendar', caldesc)
 
        dim2id(1) = strlen_dimid;  dim2id(2) = time_dimid
        call ncd_defvar(nfid(t), 'date_written', ncd_char, 2, dim2id, varid)